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Implementing The Sciences 
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Disk 
Has Arrived! 

Sir ::ode your co-ordinates onto the 
postage powered order form and every pro- 

iram irom each issue will be locked in. 
energized, and transported from our star- 
base directly to yours! Warp 9 will seem 

ilow compared to the time you save typing, 
and the programs will give your machine 
That took and feel of a fresh set of Driilhium 
Crystals! Coast through the Neutral Zone 
with The Transactor Disk! 

Only $7.95 Each! 

6 Disk Subscription 

Just $45.00! 
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see "Verifizer" on page 4 
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Program Listings In The Transactor 

All programs listed in The Transactor will appear as they would on your screen in Upper/Lower case 
mode. To clarify two potenlial character mix-ups» zeroes will appear as 0' and the teller "o" will of course 
be in lower case. Secondly, the lower case L {T} has a fla! lop as opposed lo the number I which has an 
angled lop. 

Many programs will contain reverse video characters that represent cursor movements, colours, or 
function keys. These will also be shown exactly as they would appear on your screen, but they're listed 
here for reference. Also remember: CTRL-q within quotes is identical to a Cursor Down, et al. 

Occasionally programs will contain lines that show consecutive spaces. Often the number of spaces you 
insert will not be critical lo correct operation of the program. When it is, the required number of spaces 
will be shown. For example: 



print 
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flush right 



would be shown as- print " [lOspacesJflush Hghl 



Cursor Characters For PET / CBM / VIC / 64 

Down - Q InMrt - 1 

Up - I Delete - Q 

Righl - D ClearSem-l 

Left - (Lft] Home ^ Q 

RVS - B STOP 
RVSOff- 



Corour Characters For VIC / 64 

Orange - 
Brown 

LLRed - 

Grey 1 - 

Grey 2 - 

Lt. Green - 

LI. Blue - 

Grey 3 - 



Black - 
While - 
Red - 
Cyan - [Cyn] 
Purple - [Pur 
Green - 
Blue - 
Yellow- [Yel] 
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Function Keys For VIC / 64 



Fl 

F2 
F3 
F4 



H 



F5 
F6 
FT 
F8 



S 



Please Note: The Transactor has 
a new phone number: (416) 878 8438 
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(or your ]cx:at wfioltfsaltr) 
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Programs listed In The Tran=>ac:lor are public domam, free locopy^nol to sell. 
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The Amiga. It's been billed as "Commodore's Everything Machine?" 
and "The Ultimate Micro?" but I can think ot only one word to 
describe il; Stunning! 

In my last Slarl Address, my comments were somewhat less flattering. 
Commodore doesn't often come tracking us down for a "show and 
tell". In fact I still haven't seen one up close. What I have seen is an 
edited video of the official launch held at Lincoln Center in New York- 
Commodore's spending curbs were but a myth at this show. 

There isn't a magazine rack in the world without an Amiga shown 
prominently under the computer titles. But reading any one of fhem 
won't have the impact of an audio-visual. The flick left no doubts 
about the phenomenal speed capabilities. High resolution graphics 
will impress just about anyone, until you start them moving. Not on 
the Amiga, Part of the video started with a ballerina on the Amiga 
screen. The program began with a stick drawing which eventually 
became a rather nicely coloured hi-res pic. Enter the real ballerina 
from stage right. The crowd liked how identical the two appeared. But 
when they both started twirling in synchro, the question in everyone's 
mind must have been "who's leading?". And I'm not so sure the 
Amiga wasnH taking it easy on "er. 

If you haven't seen one yet, don't pass up the opportunity for a demo. 
This machine will BLOW YOU AWAY, Even more impressive is the 
amount of effort behind some of the demos. Mere ten line programs 
create some of the most awesome displays imaginable. Memory is 
expandable to a whopping 8 Meg! With that kind of space to play in, 
I'm sure the best dazzlers have yet to be conceived. 

PCophytes will find a new contender on the ballot. Yes, the Amiga will 
be PC compatible. A Lotus 1-2-3 production line diskette was no 
apparent struggle for the 68000 based machine. Commodore claims 
even the Sub-Logic Flight Simulator will port to the Amiga, but go on 
to say "why t)other, an Amiga Flight Simulator is due shortly from 
Sub-Logic", My guess has this program as the first to go beyond the 
awesome demo, 

Sound was equally impressive, although I think it will take more than 
a demonstration to tax the analog department. Speech synthesis 
appears to be included with the package, as well as sound digitizing. 
With a microphone, one can record any sound for future playback, 
and in stereo finally. The show included a short jam session with an 
Amiga connected to a keyboard, but Tm sure that combo also has a 
long road ahead of it. 

Less visible (audible) is the fact that most of these tasks are performed 
with very little effort from the 68000, Three VLSI super chips handle 
operations that might otherwise take a good chunk of processor 
attention. This leaves the CPU plenty of time to move data around, 
and 1 get the impression these chips get awfully hungry. 



J could go on for pages about 4,096 colours, DMA 880K microfloppies, 
I/O and expansion ports, ICON control, windowing, multitasking, 
etc., but I only have one. Future Transactors will spend time on the 
details but not until a few more get sold. Unofficially I heard that 5,000 
are ready to be shipped, but where and to whom I don't know, 

Amiga falls short of '*the new wave" by my definition. However, if the 
Amiga doesn't stir up while water on Commodore shores, it's hard to 
imagine what will. Commodore has some PR patching to do with 
many a retailer that are not eager to add shelf space for any new lines, 
let alone CBM, Perhaps the calibre of this machine will help Commo- 
dore regain the healthy dealer relationship they'll need to attain 
success the Amiga deserves. , 



Aside from hardware, there's another great deal you should be aware 
of. Viewtron is a NAPLPS videotex service out of Miami, Florida. It's 
run by Knight-Rirfder Newspapers Inc., a company with a mere l.l 
billion (yes Billion} in sales last year. However, Viewtron is by no 
means "new". For the last six years. Knight-Ridder has been develop- 
ing this service to the tune of 40 million dollars. Originally it was 
available only to those willing to spend $600 on a videotex terminal, 
and only in south Florida. Special videotex software for the 64 is 
required to obtain some lovely picture graphics, and for just $9.95 it's 
yours. It comes with a perfect little manual and though 1 can't detail all 
the services Viewtron offers, the list is long and well documented. 
Once you gel your software, you answer a few questions and it does 
the rest. Viewtron is available now through most of the major 
networks. On your first call you'll be asked for a credit card number 
and you only pay for the time you're on - your first hour is FREE. 

Don't have a modem? Viewtron sells them too. And check this out. 
Get the software and a 300 baud Westridge 6420 for just $49.95, or a 
1200 baud Volksmodem 12 for $189.95. This kinda stuff normally 
goes in News BRK, but I rather like bearing good news myself. In my 
opinion, Viewtron is the safest money you can spend for your 64. And 
Viewtron guarantees it. Their number is 1 800 543 5500 Operator" 
825 (305 674 1444 in Canada}. 

Lastly, I hope it won't be long before our on-line plans go into full 
swing. Viewtron has approached us several times and we're anxious 
too. More next issue, or see you on Viewtron! (We still have plans for 
Delphi too!) 

There's nothing as constant as change, I remain. 




Karl J.H. Hildon, Managing Editor. The Transactor 
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Using "VERIFIZER 



»> 



The Transactors Foolproof Program Entry Method 



VERinZBR shoEild be run before typing '\n any long program from 
the pages of The Transactor. It will lei you check your work line by 
line as you enter tlie program, and catch frustrating typing errors. 
The VERIFIZER concept works by displaying a two-letter code for 
each program line which you can check against the corresponding 
code in the program listing. 

There are two versions of VERIFIZER on this page; one is for the 
PET, the other for the VIC or 64. Enter the a|)plicable program and 
RUNit. If you get the message, "***** data orror *■«*■**", re-check 

the program and keep trying until all goes well. You should SAVE 
the program, since you'll want to use it every lime you enter one of 
our programs. Once you've RUN the loader, renuMnber to enter 
NEW to purge BASIC text space. Then turn VERIFIZER on with: 



SYS 828 to enable the C64/VIC version (turn it off wtth SYS 831 
or SYS 634 to enable the PET version (turn it off with SYS 637) 



Once VERIFIZER is on, every time you press RETURN on a 
program line a two-leUer report code will appear on the top left of 
the screen in reverse field. Note that these letters are in uppercase 
and will appear as graphics characters unless you are in upper/ 
lowercase mode (press shift/Commodore on C64/VIC). 

Note: If a report code is missing it means weVe editted that line at 
the last minute which chang^^s the report code. However, this will 
only happen occasionally and only on REM statements. 



With VERIFIZER on, just enter the program from the magazine 
normally, checking each report code after you pre,ss RETURN on a 
line. If the code doesn't match up with the letters printed in the box 
beside the listing, you can re-check and correct the line, then try 
again. If you wish, you can LIST a range oJ lines, then type 
RETURN over each in succession while checking the report codes 
as they appear. Once the program has been properly entered, be 
sure to turn VERIFIZER off with the SYS indicated above before 
you do anything else, 

VERIFIZER will catch transposition errors (eg. POKE 52381,0 
instead of POKE 53281,0), but ignores spaces, so you may add or 
omit spaces from the listed program at will (providing you don't 
split up keywords!). Standard keyword abbreviations (like nE 
instead ol next) will not affect the VERIFIZER report code. 

Technical info: VERIFIZER resides in the casseUe buffer, so if 
you're using a datasette be aware that tape operations can be 
dangerous to its health. As far as compatibility with other utilities 
goes, VERIFIZER shouldn't cause any problems since it works 
through the BASIC warm-start link and jumps to the original 
destination of the link after it's finished. When disabled, it restores 
the link to its original contents. 



KE 
JF 

LI 

BE 

DH 

GK 

FH 

KP 

AF 

IN 

EC 

EP 

OC 

MN 

MG 

DM 

CA 

NG 

OK 

AN 

GH 

JC 

EP 

MH 

BH 



HL 4c 41 If: 1^ 



Listing 1 a: VERIFIZER for C64 and VIC-20 



10 rem* data loader for "verifizer'' '• 

1 5 rem vic/64 version 

20cs = 

30fori=^828 tQ958:reada:poke t,a 

40cs = cs + a.ne>;t i 

50: 

60 if csOl 4755 then print" ***** data error 

70 rem sys 828 

80 end 

100 

1000 data 76, 74, 
1010data252, 141, 
1020 data 3,240, 
1030 data 251, 169, 
1040 data 3. 3. 
1050dala 0. 160. 
1060 data 32.240, 



Listing lb: PET/CBM VERIFIZER (BASIC 2.0 or 4,0) 



: end 



3,165.251,141, 

3, 3, 96,173, 

17, 133.252, 173, 

99,141, 2, 3, 

96,173,254, 1, 



2, 

3, 

2. 

169, 

133, 



0, 189. 
15, 133, 
32, 183, 



1070 data 133, 90, 
1080 data 232, 208, 229, 56, 
1090data 32.210.255, 169, 18, 
llOOdala 89, 41, 15. 24, 105, 
1110 data 165. 89, 74, 74, 74, 
1120data 32,210,255,169,146, 
I130data 32,240,255,108.251, 
1140data101, 89,133, 89, 96 



0, 2,240, 
91,200, 152, 

3, 198, 90, 
32,240,255, 



32,210, 
97, 32. 
74. 24, 
32.210, 
0, 165, 



3, 165 

3,201 

3, 133 

3, 141 

89, 162 

22, 201 

41, 3 

16,249 

169, 19 

255, 165 

210,255 

105, 97 

255, 24 

91, 24 



CI 

CF 

LI 

HC 

DH 

GK 

OG 

JO 

AF 

IN 

ON 

IB 

CK 

EB 

HE 

01 

JB 

PA 

HE 

EL 

LA 

Kl 

EB 

DU 



10 rem* data loader for " vefifizer4.0" " 

15 rem pel version 

20 cs = 

30 for I ==634 to 754. read a.poke i,a 

40cs = cs + a.next I 

50: 

60 if CSO15580 thien print" ^*"** data error ♦•***": end 

70 rem sys 634 
80 end 
100: 

lOOOdata 76,138, 2.120,173,163, 2,133,144 
1010data173, 164, 2,133,145, 88, 96,120,165 
1020data145.201, 2,240, 16, 141, 164, 2. 165 
1030 data 144, 141, 163, 2, 169, 165, 133, 144, 169 
1040data 2,133,145, 88, 96, 85,228,165,217 
1050data201, 13,208, 62,165,167,208, 58,173 
1060 data 254, 1, 133,251, 162, 0, 134,253, 189 
1070data 0, 2,168,201, 32,240. 15,230,253 
I080data165, 253, 41. 3.133,254. 32.236. 2 
1090data198,254, 16,249,232,152,208,229,165 
1100data251. 41, 15, 24,105,193,141, 0,128 
1110data165,251, 74, 74, 74, 74, 24,105,193 
1120data141, 1, 128, 108, 163, 2, 152, 24, 101 
1130data251, 133,251, 96 
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Bits and Pieces 



Got an interesting programming tip, short routine, or an un- 
known bit of Commodore trivia? Send it in - if we use it in the 
Bits & Pieces coiumn, we 11 credit you in the column and send 
you a free one-year's subscription to The Transactor 



Multiple Directory Pattern-Matching 

Commodore's filename paltern-malching feature for disk di- 
rectories is more powerful than many people are aware. One 
lirtie-used ability is the use of multiple patterns in a directory 
listing. For example, you could get a list of ail files on the disk in 
drive zero starting with either the letter " S " or the letter " D '' : 

LOAD"$0:S*,0;D*",8 

Up to five selective directories may be used in a single directory 
filename. 



Where am 17 



Noel Nyman, Seattle WA 



Corrupting RAMTAS Routine 



Edward Smeda, 
Victoria, Australia 



RAMTAS (SFF87) is a C-64 Kernol routine which, among other 
things, has the function of setting the top of memory pointer 
This is done by non-destructioely testing RAM until it finds a 
memory location which does not return the value written to it. 
This location, usually SAOOO, tiien becomes the top of memory. 
RAMTAS is part of the C-64 power-up routine ($FCE2). 

Normally, no problems occur with this routine. However, if you 
have any machine code or other information stored in the RAM 
under BASIC ROM you will find that a hardware reset (reset 
button) or software cold-start (SYS 64738) will always corrupt 
the byte at SAOOO. This occurs because when RAMTAS tests 
SAOOO, it writes the RAM with $55 but. on reading, it reads the 
BASIC ROM instead and finds a different value. RAMTAS aborts 
at this point, leaving $55 in the RAM at SAOOO. 

While this does not really qualify as a bug, programmers 
should be aware that it does occur and should make allow- 
ances. There are a number of ways around the problem, butlhe 
simplest is to avoid using location SAOOO for program or data. 

Editor's note: On the other hand, this " feature " can be used to 
check if a reset occurred since a program was last RUN 



Relocatable machine language programs are the easiest to use. 
Invariably some nifty routine from The Transactor sits in a spot 
needed for another part of your program, it would be best if 
authors made their code relocatable. This isn't always easy. 
JMPs within the code are usually necessary and to use JMP 
commands, absolute addresses are required. 

However, if the code can find its own location in memory, the 
JMP addresses can be calculated regardless of where the user 
stuck the program. 

The " Where am I?" routine below stores a reference to its 
beginning address before executing the main program. It uses a 
JSR to force the program counter (the address of the JSR 
instruction) to the stack, then retrieves the address. 

JSR SFFDE ;read real-time clock, or any harmless JSR 
TSX 
DEX 
DEX 

TXS ;move the stack pointer to the stored address 

PLA 

STA $FD ;store high byte of address 
PLA 

STA $FC ;store low byte 
(main program) 

The vector stored at $FC/$FD is the starting address of 'Where 
am I?" plus two. By adding an offset to this value and using 
indirect JMPs, the program can be made totally relocatable. 



QUAKE!! 

This is another one of those lovely Transactor specials, frivo- 
lous but somehow worth typing in anyway. QUAKE!! will 
simulate the effect of a 6.0 on the Richter scale, or program- 
ming while using hallucinogenics. Good at parties or for practi- 
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cal jokes; amaze your friends! The BASIC luader below will 
generate the 191 bytes of machine code which unleashes 
"quake mode" - you'll still be able to program normally while 
Ihe quake is occurring. Quake mode is activated with SYA 
49152 and turned off with SYS 49155. Make sure you have 
plenty of air-sickness bags nearby! 



AA 
DK 
KJ 

LI 
KF 
DH 
GK 
FB 
DD 
EP 
KF 
IN 
IH 
DA 
PB 
BA 
DD 
FP 
OC 
FG 
NC 
MM 
EJ 
JH 
EF 
KO 
BP 
LH 
MK 
AK 
PO 
CN 
DG 
HF 
PK 
PG 



10 rem* dataloaderfor "quake" * 

1 1 rem' transactor n^iagazine '85 -cz 
15rem save" @Oquake.bas" ,8 

20cs = 

30 for i = 49152 to 49342 read a. poke i,a 

40cs = cs + a:next i 

50; 

60 if CS016666 then print" Idata error'" 

70 sys 49152 

80 rem sys 491 55 to stop 

90 end 

100: 

lOOOdata 76, 49, 192, 

lOIOdata 1, 2, 3, 4, 

1020 data 7, 7, 7, 6, 

1030 data 1, 0, 0, 0. 

1040 data 7, 7, 7, 6, 

1050 data 1, 0, 0, 0, 

1 060 data 



: end 



76, 112.192, 



5, 
5, 
4. 
5, 
0, 



88. 141, 
3,169, 
18, 
17, 



6, 
4, 

5, 
4, 

1, 
20, 

1, 

208, 

208, 

22, 208, 

1,240. 

32, 150, 



0, 
7, 
3, 
6, 

3, 
2, 




7 
2 
7 
2 
3 



4, 120. 169. 
1070datal92, 141, 21, 
1080data208, 169, 0. 141, 
1090data208, 41, 119, 141, 
n00dala208, 41,247,141, 
1110data173, 25,208, 41, 
1120data 1,141. 25.208, 
1130data 49,234,104.168,104,170, 
1140data120, 169, 128, 141. 26,208, 
1150data141, 20, 3, 169,234, 141, 
1160dala173, 22,208, 41,240, 9, 
1170data 22,208, 173, 17,208, 41. 
1180data 11, 141, 17.208, 88, 96, 
1190data192, 173. 22,208, 41,248, 
1200 data 192, 141, 22,208,173. 17, 
1210data248, 29. 28.192,141, 17, 
1220data 6,192.173, 6,192,201, 
1230data 5,169, 0,141, 6,192, 



3. 169 
141, 26 



173, 
173, 

88, 

11. 
192. 
104, 
169, 

21, 

8, 

240, 

174, 

29, 
208, 



17 

22 

96 

169 

76 

64 

49 

3 

141 

9 

6 

7 

41 



208, 238 
21, 144 
96 



The Schizophrenic Sprite 

The shape of any C64 sprite is completely determined by G3 
bytes in memory. To change the shape of a sprite, the sprite 
definitions are usually kept stalif, and pointers are changed to 
point to dehnitions elsewhere in memory, Whal about doing 
the opposite - keeping the sprite pointer constant but changing 
the 63 bytes defining the sprite? Whal if a sprite definition 
occurs in screen memory? To find out, enter this short bit of 
code: 



10 rem schizo-sprite, cz85 
20 vie = 53248. rem vie chip at SdOOO 
30pokevic,25 poke vic + 1,100 
40 poke vie + 21 .1 : poke vie + 39,1 
50 poke vtc + 23, 1 : poke vie + 29,1 
60 poke 2040,16 

A double-sized white sprite appears, whose shape changes 
depending on the first 63 characters on the screen - the top 
screen line and part of the second. The fun part comes by 
playing. Try different groups of characters: " ioioioioi" ,,etc 
produces the effect of three parallel ladders; repealing the 
asterisk and english pound characters displays a repealing 
checkerboard effect: " cxcxcxcxcxcxcxc " is pretty interesting, 
too (all of these were found by experimenting}. Type in your 
name to see what it " looks like " . As usual, we leave it to you to 
find an application for the above bit of foolishness. 



Try This 

10geta$;ifa$- " " then pnntbS;: goto 10 
20 b$ = b$ + a$: printb$;; goto 10 

Press a few keys, then try some cursor controls. It will eventu- 
ally die with a ?STRING TOO LONG, but by then you'll be tired 
of it anyway. 



Error-Driven Catalog Routine for VlC/64 

This machine-language program sits in the cassette buffer and 
displays a directory of drive zero whenever a ">" (greater- 
Ihan) is entered. It works by trapping the syntax-error vector, 
so it won't bother anvone when it's not in use. 



LB 
MM 

NJ 

HG 
DD 
KK 
PE 
JN 
GK 
FC 
BD 
ID 
GB 
CB 
DD 
IH 



10 rem save"0:errcat64 bas",8 

100 rem -■■•<■ rte/85 - error vector driven catalog 

routine for c64 and vie 20 
1 10 rem »* press > then (return) tor a catalog of 

drive zero 
1 20 for I - 828 to 951 . read x. poke j,x: next 
130sys(828) 
140 rem 

150data169, 71,141, 0, 3,169, 3,141 
160data 1, 3, 96,201, 49,208,104,169 
170data 2.162,182,160, 3, 32,189.255 
180data169, 2,162, 8.160, 0, 32,186 
190data255, 32,192,255,162, 2, 32,198 
200 data 255, 169, 13, 32,210,255, 32,207 
210 data 255, 32,207,255,160, 2, 32,207 
220 data 255, 32,207,255, 32,207,255,170 
230 data 32,207,255,132,251, 32,205,189 
235 rem ok, ok, ok, ok, ok, ok, ok, 221 
Note; use line 235 to change line 230 for vie 20 
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240data164, 251, 169, 32, 32,210,255, 32 
250 data 207, 255, 32,210,255, 32,183,255 
260 data 208, 19,200,192, 28,208,240, 32 
270 data 225, 255, 240. 9,169, 13, 32,210 
280 data 255, 160, 0,240,201,169, 2, 32 
290data 195,255, 32.204,255,162,128, 76 
300 data 139, 227, 36, 48 
305 rem 58, 196, ok, ok 
Note: use line 305 to change line 300 for vie 20 



Notes On REVCNT: The Error Recovery Count 

Variable - CBM Drives 

r 

Your drive can tell you quite simply when it is ou! of alignment. 
By writing a value of 193 to location REVCNT (see below), your 
drive will err out immediately when an alignment error occurs. 
The code and an explanation follows below: 

1541/2031LP: print*]5, " m-w"chrS{106)chr${0)chr$(i) 

chr$(l93):remloc$006a 
: print*15. " m-w" chr$(252)chr${67)chr$(l) 

chr$(l93):remloc$43fc 
: print*15,"m-w"chr$(245)chr${t6)chr$(l) 
chr$(193}:remloc$10f5 



Original 1541 tip thanks to the Central Coast Commodore 
Users Group Newsletter - April 2, 1985. 



2040/4040 



8050/8250 



The Reasons Behind Choosing The Value 193 (Binary 
11000001) 

A quick note on the 6502 BIT instruction. When a BIT is 
performed on a memory location, the NEGATION flag is set 
from bit 7 of the location, and the OVERFLOW flag is set from 
bit 6 of the location. 



ML Rigtit JustifyRichard Perrit, South Porcupine, Ont. 

In Volume 5, Issue 6 we ran this one-line "right justify" for 80- 
column computers: 

itf. 



fori =1to80:print"H;:forj=lfo24:print"H":nexl: next 



Richard Perrit of South Porcupine, Ontario has since re-wri!len 
this special effect in machine language. The program is relocat- 
able and can be installed using (he BASIC loader below. 



CK 
GD 
LO 
MJ 
JE 
GE 
JL 
EfVI 
IL 

EM 
FK 
10 
CO 
AB 



* * 



• #* 



*•* 



10 rem *** right justify 80 • 

20 rem **- richard perrit 

30 rem **• august 11/85 

40: 

50 rem ad = 491 52 for c-64 

60 rem ad = 634 for pet 

70 rem musl have 80 columns 

80: 

110ad = 634.fori = adload + 31:readx:ch-ch+x 

:pokei,x:next 
1 20 if ch<>4605 then print " Idata error! " : stop 
140data169, 0.162. 1J60, 1,169, 19 
150 data 32, 210. 255, 169 J48, 32,210,255 
160data169J41. 32,210.255,200,192, 24 
170data144. 241,232, 224, 80,144,229, 96 



A BIT instruction is performed on REVCNT by DOS for two 
different reasons. Firsl, after a BIT on REVCNT, a BVS is made 
ttiat brancties past a routine that executes a track offset. 
Second, after a BIT on REVCNT, a BPL is made that branches 
past a routine thai tosses a BUMP onto the job que. These two 
reasons explain why Bits 7 and 6 were set (192), but still leaves 
the last bit. Bit 0, unexplained. Look below for the answer. 

Whenever an error occurs when reading or writing to disk, the 
routine is altempled a set number of times before aborting. 
Location REVCNT holds the key to the number of attempts. 
The DOS will AND location REVCNT with *$3F, storing the 
result in the Y register for a counter of the number of attempts. 
If you were to AND 192 with $3F. the result would be zero: 

11000000(192) 
00111111 ($3F) 



00000000 after ANDing 

Therefore, in order to not loop through 255 cycles of attempts 
(DEY. BNE routine), bit has to be set. This gives a total value 
of 193 (Bits 7. 6, and set) 



Slipped Disks: 

Speeding up your disk drive 



Scott Maclean, 
Georgetown, Ont. 



This article deals with speeding up dual drives - examples are 
given for the 4040, 8050 and 8250. Unfortunately, the method 
given here will not work on the 1541, because the method we 
are using does not exist on the 154T 

In the dual drive memory map, at location $1000 (4096 deci- 
mal), to location $1003 (4099 decimal) are 3 interesting varia- 
bles. (Note: 8250 values also apply to the 8050 drives) 





Contents 


Contents 






Local ion 


(4040) 


(8250) 


Label 


description 


Hex Dec 


Hex Dec 


Hex Dec 






$1000 4096 


$0A 10 


$03 3 


D 


Interrupt Delay 


$1001 4097 


$0D 13 


$0D 13 


MAU 


Motor accelera- 
tion delay 


$1002 4098 


$30 48 


$30 48 


MCT 


Motor cutoff 
time 



We can change the contents of these locations to change the 
speeds of the different functions of the disk unit. We can 
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change the value of the Interrupt Delay, which increases or 
decreases the overall speed of the drive, including the transfer 
rate of the drive. Very small delay rates will cause read errors 
and the drive won't read a (hing from disk. The most noticeable 
thing Itiis value changes is the speed at which a "drive bump" 
occurs. For instance, set this to 5 on a 4040 and Ihen open a file 
to disk with the drive door open to cause an error. You will hear 
a buzzing noise instead of the familiar "WHAPWHAPWHAP" 
noise a 4040 makes. Also affected is the stepping rate, if you 
send the head from track 1 to track 35. you will notice a 
significant increase in stepping speed. A safe value for the 4040 
is 9, and for the 8050/8250 is 2. 

We can also change the Motor Acceleration Delay rale. When 
you tell the drive to access the disk, it turns on the drive motor, 
then waits for a certain amount of time for it to accelerate and 
stabilize to exactly 300 RPM. We can change this value to 
change how long the startup delay is. Safe values for all drive 
types is 2. This value has the most visible effect, as it decreases 
directory search times, and generally speeds all internal disk 
access up. Using these two functions, you can read the direc- 
tory from a 4040 with about 1 second of drive motor time. After 
setting these two locations and requesting a directory, the 4040 
will do a drive bump, move to track 18 and seem to stop 
instantly. However it will continue sending directory data until 
it has finished the directory. 

The last location is the Motor Cutoff Time. This is the delay the 
drive uses after a file is closed, or after data stops flowing. 
Normally, after you finish using the drive, it will whirr for a few 
seconds longer, even though it isn't doing anything. By chang- 
ing the value In this location you can control how long it will 
continue to spin the disk. If you are used to the length the 4040 
spins, and you then start to use an 8250, you will notice that the 
8250 seems to take forever to stop spinning. Using all three 
locations, it is possible to change the entire speed characteris- 
tics of the drive. Following is a table showing the safe values for 
each location, followed by a short program that can be used to 
change the values easily and quickly. 

One last note: 1 would expect that the same method should 
operate correctly on the SFD-1 001, but don't quote me on that 

as I have never used one of those units. 



Location 

Hex Dec 

$1000 4096 

$1001 4097 

$1002 4098 



Lower Limit Upper Limit 

4040 8050/8250 4040 8050/8250 

$0A 10 $03 3 $F5 250 $F7 252 

$02 2 $02 2 $FE 254 $FE 254 

$02 2 $02 2 $FE 254 $FE 254 



10 rem +*program to change velocity 

20 rem **valuesof dual drives 

30 rem **by scott maclean 

40 open 1,8,15:rem * 'open command channel 

50 print chr$(147) 

60 input " Interrupt Delay" iid 

70 input '' Motor AcceL Delay" ;mad 

80 input "Motor Cutoff Time ";mct 

90 print#1, "uj^rem **reset drive 
1 00 print#1 , " m-w " chr$(0)chr$(1 6)chr$(3)chr$(id) 

chf$(mad)chr$(mct) 
1 10 rem **sets up at locations $1000-$1003 

1 20 close 1 

10 rem **quick program to speed up 

20 rem **dual drives 

30 open 1 ,8,1 5:rem "«open command cfiannel 

40 print#1/uj" :rem --reset drive 

50pnnt#1/m-w^ctir$(1)chr$(16}chr$(2)chr$(2)chr$(2) 

60 close 1 

I welcome comments on this method, 1 may be contacted at: 

MFP Enterprises 

6 Marilyn Crescent 

Georgetown, ON 

L7G 1 K4 

Or by modem at (416) 877-7762. 



1541ders 



Daniel Bingamon, Batavia, Ohio 



When I atiempt to open a relative file with a record length of 58 
(ASCff code for colon) 1 get errors. It appears thai the 1541 likes 
to think of the colon as a delimiter and since between the 
comma and the colon is nothing, you get an error for opening a 
file of record length zero. Maybe this will give Commodore the 
hint to tear into their source and fix this along with a few other 
problems (like SA VE@l if we find enough bugs. 

The " UJ" command sent via the command channel is being 
used by some widely sold software. Some drives (most of them) 
require three seconds for the reset, but some software only waits 
one second or less, this causes the computer to "hang up" 
when further disk commands are given. This can occur when 
the programmer writes a routine in BASIC, then compiles and 
does not compensate for the speed increase in the FOR.. NEXT 
time delay loops. 



Editor's Note: The above Lower Limit values may not work on 
all drives - experiment. Also, speeding up your drive may make 
it less reliable; don't trust important data or complex disk 
functions to a hyped-up machine. 



C-64 BASIC STP 



Jack Weaver, Miami, FL 



^"STP" stands for ''Sequential To Program". This is a BASIC STP 
for those who don't want to STP the M/L way. Refer to Chris 
Zamara's STP program in Transactor Vol 5. Issue 6. 
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This routine will enter any program that has been listed to a SEQ 
file on disk- It uses the Dynamic Keyboard technique from BASIC. 

As a dividend, BASIC STP may be used to append or merge several 
programs together. The individual program lines must have no 
duplicate numbers or your final program will be a total mess. 

A great idea is to have a series of routines, with specihc numbering 
for each category of routine. Call and merge them together with 
BASIC STP. Build a program of routines, using BASIC STP to do it. 

To use it for appending a program or routine to an existing 
program, you may LOAD Basic STP and list it to the screen. Then 
LOAD the program you are using as the "master^' program. Bring 
the cursor up to the lop line of BASIC STP, and hit RETURN over all 
the lines. 63990 through line 63999, Now BASIC STP is appended 
to the program. 

RUN 63990, and enter the file name of the routine or program on 
SEQ file you wish to append or merge with your "master" pro- 
gram, BASIC STP will do just that. 

The last step is to delete BASIC STP lines, and SAVE the new 
program. 



KK 
FM 
PG 

MP 

PI 
Fl 
10 

NB 
BK 
GO 



63990 
63991 
63992 

63993 

63994 
63995 
63996 

63997 
63998 
63999 



poke828J69 poke829,0:poke830,76 

poke831,49poke832,243:clo3e4 

input " filename " ;f$:open4,8,4,f$ 

:get# 4.a$,a$ :poke829,1:a$^ " ' 

Drint" B8liffi| pQke812,60:pQke813,3 

:ifa$<>" "lhen63995 

get#4,a$ 

printa$;:ifa$<>chr$(13)then63994 

get#4,a$:a=0:if5t = 0then 

a = asc(a$ + chr$(0)) 

print" ' a$ = chr$( ^ a " ):goto63993 

ifstthenpoke829,0:close4:stop 

poke198,3.poke631J3,poke632J3 

;poke633J3:print"H";end 




The Lottery Companion 

When you run out of birthdates, license numbers and hats to pull 
numbers from, you might want to use this program the next time 
you play a lottery. If will pick up to ten sets of six numbers, chosen 
from a pot of 39 or 49, as you choose. 



00 
KA 
MJ 
JG 
DP 
HD 
NF 
CF 
IN 

IG 
FA 

HN 



Kl 
CL 

DH 
MA 
EB 
AM 
Ml 

AO 
HK 
DH 
EP 
HD 
MD 



100remsave"0:lottery ",8 

105 rem •* an evers co-production 1985 *• 

110dimwin%(49,lO), out$(10):c$ = chr$(147) 

1 1 5 print c$ ' select option - 

120 print " 1) lottario6/39" 

125 print "2) lotto 6/49" 

130 input x$: ifx$<"1 " ofx$>^2- tfien130 

135lot = 39:ifx$="2'' then lot = 49 

140 input " output (3) screen (4) printer " idv 

: if dv<3 or dv>4 then 1 40 
145 open 1,(dv} 
150 input " required # sets (1-10)= "imax 

: if max<l ormax>10then 150 
1 55 print#l , " your 6/ " mid$(str$(lol),2) " numbers 

are:": prinl#1: print#1 
1 60 rem assign the random values to the array 
1 65 for try = 1 to max: for pik = 1 to 6 
1 70 v% = rnd(0)'lot + 1 : if win%(v%,try) then 1 70 

: rem loop till un-used # 
175 win%(v%,tfy) = 1; rem flag as used 
180 next pik, try 

185 rem ** got the numbers - build the strings '* 
1 90 for pik = 1 to max: tor asn = 1 to lot 
1 95 If win%(asn,pik) then out${pik) = out$(pik) 

+ right${ " [3 spaces] " + str$(asn),4) 
200 next asn, pik 

205 rem »■* afl ready- time to print »* 
21 for spt =1 to 24 step 4: for prl = 1 to max 
21 5 print#1 ,mid$(out$(prt).spt,4}; 
220 next prt: print#l : next spt 
225 print#1: close 1:end 



Gaussian Elimination Routine 



Audrys Vilkas, Goleta, CA 



The following routine is capable of solving up to nine equations in nine unknowns 
of the form Ax ^ b. It can also solve or yield information about non-square arrays. It 
is done entirely off-screen but the user should be aware that a little gentleness in 
key input is appropriate. The routine occupies 700 or so odd bytes in the raw and is 
an excellent tutorial for those who study matrix theory. 



EL 

Fl 

LO 

MN 
AP 

NG 
PP 
KK 
KA 
CD 

GN 

PP 
PH 



100 rem * gaussian elimination routine * 

1 1 print:input " Row Dimension " ;n:input " Column Dimension " ;m 

120 dim a%(n,m + 1),b{n + m + l); fori = Iton: for] = 1tom + 1: k = f + j 

130 print '^ a "i;j;: input'" = ";a(ij.b(k)} 

140 print "Jjfl" ,:next;next:print:print"nNext Row Dim" ;n-1i "Next 

ColDim";m'1 
150 fori = 1ton:forj = 1 torn + 1:printa(i,j,b(k));:next: print: next:prinl 
160 fori = 1ton:forj-1 torn -f1:detfna(i} = -a(i-1,1,b(k))^a(ij.b(k)) 
170deffnb(i) = a(i.1,b(k))*a(i-1,j,b(k)):r = fna(i)-ffnb(i} 
180r1=-a(i-1J,b(k))*a(ij,b(k)):r2-a(i,1,b(k))*a(i-1j,b(k)):ra = r1+r2 
190r1=a(iJ,b(k))'a{i-1.j,b(k)):r2 = a(iJ,b(k))*a(i-1,j.b(k)) 

;rb = r1 +f2.r = ra*rb 
200 r=fna(i + 1) + fnb(i + 1):printr;;next:print:next:ifm = land 

n=^1then220 
210clr;goto110 
220 y = a(n,m + 1,b(k))/a(n,m,b(k)):printy;" is a solution"': clr;goto 110 



The Evil Swords Of Dooml 

Beware as the evil sword slices through the screen 
and wipes any characters unfortunate enough to 
be in its way. Look out! Here comes another - you 
never know where the next one will strike. Before 
long, all characters have been slain by the EVIL 
SWORDS OF DOOM! Stay tuned until next issue 
for the conclusion of this exciting tale, {PHHH 
Gimme a break Chris - KH) 



1 rem evil swords of doom 
20 a$ = '" MiMlMiMiM 

40printchr$(142) 

50 print chr$(19)lab(rnd{l)M1) 

60fori = 1to19:printa$; 

70 rem delay here if desired 

80 next I. print b$i: goto 50 
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Letters 



Twinkle Tones: First of atl. 1 would like to say thanks for the 
great communications issue of Transactor (Vol 6 Iss 02). I 
enjoyed it very much as I am interested in telecommunications 

with my C-64- 

[n your article (Tele-Tone 64) you mentioned the fourth 
column that belongs to the set of Touch Tones. In the industry 
Touch Tone is referred by the technical term of 4x4 signalling 
as the full pad is 4x4. The extra column is used by the US 
Military in their private Autovon system. 

The tones are used in times of emergency to get important 
phone calls through even Though all circuits are busy. The call 
is given a priority by the fourth column digit. It can override a 
lower priority call in order to get through. The highest priority 
call is 'Flash Over' (FO). Then Tiash' (F) is second, 'Immediate^ 
(1) is next. The fourth priority is 'Priority' (P) and then at the 
bottom is a call with no priority. However, all of these tones are 
of absolutely no use to the average caller for those of you with 
experimentation ideas. Your local Bell exchange will totally 
ignore them. 

As I work with Illinois Bell Telephone, I was interested in Tony 
Valeri's article. The fact that he included the "No Such Number^ 
was interesting as I don^t know of any company or exchange in 
the Northern Illinois area that still uses that tone. 

One of the things that 1 have learned in playing with my C-64 is 
the amount of mis-information available! The amount and 
type errors in reference material is great and CBM puts out 
more than their share of it also. The biggest error that comes to 
mind is the RS-232 tables that are built-in the Kernal. It seems 
that if you want to run a 1 200 bps modem on the C-64, it won't 
work (until you hnd out why). 

From most reference material available including the Program- 
mer's Reference Guide, you would open the RS-232 channel 
with the following syntax: 

OPEN 2,2,0.CHR$(8) + CHR$(0) 

For one stop bit. 8 bit words, 1200 bps, no parity, and full 
duplex. 

But guess what?? That won^t work! It seems that the baud rate 
table is wrong. Also, the PRG supports two more errors: 

a) !t infers that the User Dehned Baud Rate is not implemented. 

b) The formula that they give to figure the User Baud Rate is 
wrong. 

Now 1 don't pretend to be smarl enough to have figured it all 
out myself. I had deduced enough from what I had read and 



done with my C-64, that a User Defined Baud Rate was used to 
make a terminal program run 1200 bps on the C-64. Joe 
O'Hara at Microtechnic Solutions was kind enough to teli me 
the 'secret'. It turns out that his associate Rick Sterling had done 
that math from the ground up and came up with the right 
figures to make the C-64 work at 1200 bps. The command is; 

OPEN2.2,0,CHR$(0) + CHR$(0) + CHR$(57) + CHR$(1) 

The two CHR$(0)'s activate the User Baud Rate determined by 
the second two CHRS's, As shown it's 57 + 1 x 256 for a total of 
313. I'm also told that CHR$(59) may work better if CHR$(57) 
causes any trouble (ie. 315 total). 

1 have since been able to modify and use several excellent 
public domain terminal programs at 1200 bps. And 1 enjoy it 
very much as 1 now can do as much as 1 used to do at 300 bps in 
less time! But it seems that my wife does not think I spend any 
less time with my C-64 though. 

Hope that the information is of some use to you and keep up 
the good work of giving us good Commodore information and 
programs!- Lyle R. Giese, Woodstock, Illinois 

Thanks for supplying the final piece to the Touch Tone puzzle. It 
may interest you lo know that I thought the extra rou) was for 
milifary use, hut without proof and working details, wecouldn't 
risk printing it. With your help, the story is now complete. 

Our compliments to Rick Sterling for his detective work with the 
RS-232 tables. The Inner Space Anthology also suggests the 
User Rate is unimplemented. Is it possible Mr Sterling might 
share his findings? 

Disk Risk?: I have read a small amount of advertising infor- 
mation about the SFD 1001 disk drive as a data storage drive to 
hold your data, but almost nothing is ever said whether or not it 
can run commercial programs!, excepting one company (Pro- 
tecto}- They claim that if the program is back-upable, then the 
drive will run the backed-up program. What i need if that is 
true, it seems that the SFD 1001 would act as if it were a 1541. 

Am I right in my assumption? 

Jim McCoy. Opa-Locka, Florida 

The SFD 1 001 could be compared to 1/2 of a Commodore 8250 
drive. It has the capacity to store up to 1 megabyte of informa- 
tion on a single diskette, and it also has an IEEE port on the 
back. It cannot act like a 1541 drive, no matter how hard you 
try. Everything is different. The 1541/2031/2040/4040 type of 
drives have a limit of 35 tracks on a diskette, with up to 21 
sectors per track. The SFD 1 00 1/8050/8250 have up to 154 
tracks and a maximum of 29 sectors per track. In simple terms, 
the drives are no! at all compatible. 
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IfProteclo states ihaf if a diskefie is back-upoble, then the SFD 
1001 will run the backed up program, then they are generaliz- 
ing too niuch. If you can copy the program over to the SFD 1 00 1 
format, then you may be partially there. If the program does not 
use direct access techniques with the drive, does not have (he 
154! 's ROM and RAM in mind while protecting itself, and does 
not consider the 1541 's disk format for operation, then you may 
be in luck. Programmers are a unique lot when it comes to 
squeezing every ounce of storage space out of the I54I. /f the 
drive turns out to be other than a 154 1, you may be in trouble. 
The program will try its magic on the wrong drive and. pronto, 
system bomb. A rotten end for a program just trying to be nice. 

hi sumuHJtion, the SFD 1001 is a good drive. It offers great 
scads of storage space for anyone who is interested. It would be 
perfect for bulletin board systems, wordprocessor users, data- 
bases that only use the common file types like SEQ, REL. etc., 
also games, utilities, and programs that don 't use the disk for 
any tasks, and just great for anyone who requires more storage 
room thai] the 1541 offers, plus on increase m operating speed. 
But a price has to be paid. The SFD 1001 is an IEEE drive, 
therefore you need an IEEE Interface for your 64 to use it. IEEE 
links usually live in the 64 s cartridge port, therefore, you lose 
tfw port And some interfere with the 64's architecture which 
may confuse some programs, usually those that demand total 
control of tlie machine and thus contend for memory that the 
mterface occupies In general, though, most software people 
and hardware people he Huk designers) have addressed this 
problem and most of the more ivell developed packages can 
cope with these configurations. 

Following that, fiowever. tfie format is not at all similar to tfte 
1541. The SFD cannot read 1541 disks, and unless you have 
some way to read from the ^serial' 1541 and transfer to the 
'parallel' SFD, then you may have some trouble just getting your 
programs onto SFD formatted disks, short of using a 4040 to do 
the transfer (the 4040 is 1541 and IEEE compatible otid could 
be used to make an easy transfer). The only drive that is 
compatible with the SFD is the Commodore 8250, which went 
out of production a short while ago The next ''almost^^ compat- 
ible drive is the 8050 with DOS 2. 7 ROMs. The (rouble with this 
is the SFD 1001 has two heads per diskette, or double-sided, 
while the 8050 is only single sided The SFD 1001 gives a total 
capacity of 4133 blocks per diskette. The 8050, 2052 blocks. 
Therefore, if you write past the half uiay point onto t/ie ^^ofher" 
side, you cannot expect to read it with the 8050. If you dotVt 
require ^'diskette protability'^ then you need not be concerned 
here though. 

This may sound like a inouthfull, but on the other hand should 
be second nature when considering such purchases. Get to 
know the buss types and format differences from one piece of 
equipment to the next. With often just a few facts one con 
rehearse the events following a major system modification and 
usually determine its success without actually making any 
changes. 



Microfiche Interest; I have just finished reading the Septem- 
ber issue of The Transactor. This is the third issue I have 
bought and, allhougti 1 tiaven't written to any other magazine. I 
feel compelled to write to yours. 

Although several other magazines are published that concern 
themselves with the Commodore computer (usually intensify- 
ing themselves on the C64), they can't always be taken seri- 
ously as they tend to appeal to too broad an interest and ability 
level. This is done honorably enough by the publishers to try to 
help everyone who buys their publication, however it tends to 
penalize those of us who have gone^beyond the basics and to 
some degree the intermediary level of computing. That is why I 
am so fascinated by your magazine, it appeals to the higher 
level user who needs more in depth knowledge without all the 
in-depth explanation. That much said, I would like to encour- 
age you not to sacrifice the quality and integrity of your 
magazine in an effort to do what everyone else is trying to do, 
appeal to everyone. It's like we were all told as kids, '1f 
everyone jumped off a bridge, would you?'' 

This letter was actually written in response to a note in 'News 
BRK' about the possibility of The Transactor appearing in 
microfiche, i would like very much to see this happen as it 
might make it a tittle easier to get a copy of your magazine in 
light of the fact that it can be extremely hard to find at this time. 
I do intend to subscribe myself, but I know that a greater 
availability of a good publication benehts all Commodore 
computer owners. I suppose this brings up the never ending 
problems of copyright violations and, while I sympathize with 
that view, I think thai it's terrible that we have to sacrihce the 
education of a large population of users in fear of the few 
among us who insist on trying to get a free ride. But I see an 
even more important advantage of this happening. There are 
countless articles that were published in the early days of The 
Transactor's existence that are unavailable to myself and any 
other people who are newly acquainted with your magazine. If 
these old issues become available by microfiche, it would 
provide a great service to those of us who crave all the 
knowledge we can find about our 64's and other Commodore 
computers to which wc are fiercely devotes, 

I would like to briefly summarize the rest of the things that I 
enjoy about your magazine. First, the emphasis on machine 
language. This kind of information and free use of such a vital 
and important part of the computer is sadly lacking in other 
popular publications. Secondly, the more in-depth look at the 
1541, truly a mysterious drive which has so little available 
documentation that it becomes frustrating to use when some- 
thing goes wrong, a minor problem becomes a major catastro- 
phe. And third, your policy on published programs which is far 
better than the competition, if I type in a program and hnd it 
useful, I am glad that I am free to give a copy to a friend to make 
his life easier. It's this kind of exchange that unites users and 
forms a more close knit bunch of enthusiasts that accomplish 
things together to make computing easier and more accessible 
to all of us. 
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In closing, please retain your high standards in the publication 
of your magazine, but don't get so big that youVe forced to 
conform to the lower standards of your competitors. Keep up 
tfie good work! Tim Blazier, Elgin, Illinois 

Sorry, bul effective next issue we will start to cover a whole new 
horizon with our magazine. Basic Backet Weaving. In our 
Basket Weaving Issue, renamed The Transbasket, we will 
address such problems as: The advantages of weaving to the 
left instead of the right. Our thoughts on putting a plastic bag at 
the bottom of the basket. Instructions on how to put a plant in 
your finished basket. And finally, cheap gifts for Christmas, 
Baskets!!. Talk about fun. Can t you wait?? 

I couldnl resist. But The Transactor will continue to be pro- 
duced at the level we have come to expect of ourselves - if we 
were not learning from our own work and research, we would 
get bored and probably change jobs. We like if this way and 
letters like yours plus conversations with our readers is a large 
part of our motivation. 

Microfiche: Your letter is the very first that we have received 
mentioning it. Perhaps very few people read our News BRK 
section. Or perhaps people would Itke to see The Transactor on 
microfiche, but don 't write in feeling there wouldn 'I be enough 
others. Whatever the story, we want to go on microfiche, but 
can ^justify it until a demand is clearly shown. If any of you are 
really interested, as Tim is, then drop us a letter Once we are 
sure, then microfiche will be on its way. 

An organized submission: Hello from sunny Vancouver! I 
realize tiiat this prot^ram (Yellow Pages Directory Organizer) is 
out of sync with your editorial schedule, but I am rather proud 
of it, and it is public domain. I would be most pleased if your 
would be most pleased if you would include it on your monthly 
disk, should you find the room. In any case, you should find it 
useful yourselves. 

Complete documentation is included in the program. 

I am a technician with Memorex. I work with 800 meg hard 
drives, 200 inch/sec tape drives, etc. IVe been involved with 
Commodore computers since about 8 years ago when I bought 
a second-hand PET 200! . with the old ROMs no less! A friend 1 
work with, Larry Philips, said he spoke with you folks at Marca 
and you would like some authors. I'm busy sharpening my 
pencil (figuratively, of course) and hope to submit an article 
soon. 



I enjoy your magazine very much, and wait impatiently for it to 
arrive on my local dealer's shelf each month. I'd buy a subscrip- 
tion, but Canada Post is notoriously slow, especially, it seems, 
with any magazine i subscribe to. 

Yours for more public domain software. 

Rick Morris, Burnaby, B.C. 

Thanks to Rick, the Yellow Pages program will be appearing on 
all future Transactor diskettes. The features of this program are 



pretty impressive, such as; allows the C64-I54I user to move 
filenames about easily within the directory. For an encore, files 
can be selectively .scratch protected and un-scratch protected 
(locked and unlocked). Plus, you can scratch and un-scratch 
files at will If you want, you can also put a bar separator 
between filenames that gives the directory listing a more pleas- 
ant and logical appearance. But you have to wait for his 
program to make the rounds before finding out everything this 
beauty does. 

Thanks for all, Rick, and thank you Larry for the kind reference 
' much obliged. 

Profile cosmetic surgery: I enjoyed reading Dr. John Ross's 
article regarding " Speeding Up Your BASIC Programs " , which 
appeared in the recent issue (Volume 6 Issue 3). Another fine 
article in a fine publicaHon. 

After adapting his program for the Vic and putting it to use, it is 
indeed a valuable utility. 

As the author pointed out, it was written for a CBM 8032 but 
should be readily adaptable to other CBM models. I wonder 
how many of your readers who are Vic and 64 users, who may 
not yet be able to do an adaptation, will miss out on this 
valuable utility. 

With this thought I sent along the Vic and 64 adaptation. The 
Vic user of course requires at least 3k expansion, since the Dr.'s 
program takes 4k for storage. The listing (for program 3) is for 
the Vic; the 64 user will require changing the (bold face) ]9Vs 
to 49"s . . . The only change required for the program 2 is the 
variable LO in line 130; change to: 

lo = peek(56)^256 

The final change, from the original article, is that of the three 
SYS; they are SYS 828, SYS 852, SYS 865 respectively. 

If you are using a Commodore printer, you may want to change 
chr$(223) in program 2, to chr$(l 66) to simulate a better graph. 

R.C. Marcus, A^incourt, Ontario 
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100 rem profiler loader - for vic/64 

110 poke 55,0: poke 56, peek(56)-16:clr 

120 read n,L for i = 1 to n: readx; poke I, x: 1 = 1 + 1 

: next: end 

130 data 87,828 

140 data 165, 56,133, 1,169, 0,133, 

150 data 168. 145, 0, 230. 0, 208, 250, 230 
leOdata 1,166, 1,224,128,208,242, 96 
I70data120, 169, 110, 141, 20, 3,169, 3 
180data141, 21, 3, 88, 96,120,169,191 
190data141, 20, 3,169,234.141, 21, 3 
200 data 88, 96,160, 0,165, 57,133, 
2lOdata165, 58, 5, 56,133, 1,177, 
220 data 170, 232, 138, 145, 0,208, 13, 165 
230data 1. 9, 8,133, 1,177, 0,170 
240data232. 138, 145, 0, 76,191,234 
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You're right. Dr. Ross did a smash up job with his arl/cie and 
program. And it did deserve a Vic-20/C64 rewrite. Thanks for 
the adaptation. It's appreciated. 

Case of the missing Space: Several members of our User's 
Group and myself have typed in the programs of tfie above 
listed article of the Sept. 1 985 issue of The Transactor, and have 
encountered some problems with the programs. In the first 
program on the alignment check we kept getting "reading track 
35 - error 70 - no channel", "drive has failed alignment 
check'', regardless of the drive we tested. On running a trace of 
the program, we found that lines ^135 and *] 55 don't seem to 
be executing. The program runs good from 100 to 130, going to 
gosub 1 60 and continuing to 1 85. where it ends. 

We would appreciate knowing if there is a printing error or 
possible an explanation of lines 110, 125, and 135. We also 
experienced problems with line 30 of the second short program 
and would appreciate an explanation of line 30. 

William Nowak, Mohawk Valley Commodore Users Group 

Tribes Hill, New York 

The problems that you are having are perhaps partially due to 
the programs as listed. Mr. Clutter used q syntax of Block-Read 
that is seldom used, but works fine all the same. The statement: 

pfint#15,"b-r20 1 9^ 
could also have been written: 

print#15/b-r"'2;0;l;9 

Delimiters of spaces when inside quotes (as Ed Clutter used), or 
semicolons when outside quotes are up to the users discretion. 
Either method sends the same information to the DOS as long 
as the individual parameters can be distinguished by the DOS. 
Perhaps we should be a little more careful as the typesetter 
doesn 't show spaces as clearly as necessary under such circum- 
stances. Below is a listing of the original program, followed by 
the lines which you may want to alter to ensure proper delimit- 
ing. 

1541 Alignment 
100d = 8; rem d = device number 
105open15,d,15:open2,d,2/#- 
110pnnt#15/'m-w"^ chr$(0)chr$(0)chr$(1)chr$(192) 
115t-35:h$="-" 
1 20 t$ = str${t) 

125print#15/b--r20'' t "9" 
130 gosub 160 
135print#15,'^b-r20 1 9" 
I40t$ = str$(1) 
145 gosub 160 
150t = l-1:itt>0then120 
155 clo3e2; closel5: end 
160 print: print "reading track "h$;t$, 
165jnput#15.a$,b$.c$,d$ 
170 pnnl a$;h$;b$:h$;c$;h$;d$ 
1 75 if val(a$)<2 then return 
1 80 print " drive has failed alignment check " 
1 65 goto 1 55 



Track 00 Adjustment - Move Head To Track 1 , Sector 

lOopen 15.8,15 
20 open 2.8,2, -#" 
30print#15,"b-r2 1 0" 

Make the following changes for the alternate syntax. Notice that 
fundamentally these lines are no different except for the delimit- 
ing of parameters. 

125print#15,"b-r-2;0;t;9 
135print#15,"b-r"2;0i1;9 

30pnni#l5,-b-r"2;0;1i0 

By the way. in line J JO, 

pnnt#15,"m-w"chr$(0)chr$(0)chr${1)chr$(192) 

was used to put a Bump on the 1541 's job que to Bump the 
head into position on Track I, Sector 0. That is what the 
clattering noise is all about when the program first fires up. You 
could delete this line if you want, and the program would still 
work Ok. 



Disk Woes: I have a few things on the agenda in this letter, 
any of which you may publish in future editions of your 
magazine, 

I Volume 6, issue 03, John Brunner of Chicago, Illinois, makes 
some suggestions about your advertising. 1 agree whole- 
heartedly with him. Word-of-mouth is the best kind of adver- 
tising anyone can gel! i also enjoy reading ads, as they give me 
an idea of what's out there on the market. I like the idea of 
keeping all advertising in one section of a magazine, almost 
like a catalogue. In facf, I like your magazine so much, that I've 
posted an ad on my Bulletin Board System, here in Ottawa, 
Ontario, as well as sending in my first renewal fee to The 
Transactor. (Besides. I could use some advertising, too!) 

1 have several 154rsand twoSFD-IOOl {1 Mbyte) drives, and 
have run into a particular difficult problem, with which I hope 
someone may be able to help me. One of my important disks 
was accidentiy NEW'd but I caught it during the head-rattling 
and the disk came out with only one block destroyed . . , TRK 
18, SEC 1! All programs where the filename is on any other 
directory block load and run normally. Unfortunately, I don't 
know how to hnd the first block of the programs where the 
filenames reside on the damaged block, except the first file. 
(DOS always puts first file to start on TRK 17, SEC 0) Cm 
assuming that all the programs are stilt intact, is there some- 
thing out there that can heip me piece this directory block back 
together again? 

Chris K. Weisner 

Ottawa Mail Forwarding Services 

Box 793 Station 'B' 

Ottawa, Ontario, KIP 5P8 

BBS (613) 830-2923 
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It was awfully nice of you to advertise The Transactor on your 
BBS. We LOVE free adoenising. Also, let's hope fha! our printing 
your complete name, address, and BBS ^ after helps you too. 

Now, about your partially new 'd diskette (nude?) If the head is 
caught mid-stream during a full new (during the rattling 
phase), then little damage should have occurred to the diskette. 
Even if the rattling had jusl stopped, and you popped the 
diskette out of the drive, little damage again. During a full new 
(with disk name and new id), the drive starts at Track I. Sector 
0. and works its way up sequentially to Track 35. Sector 16. You 
could not lose Track 18, Sector I that fast. 

If you performed a quick new (no id), and left it for its duration, 
then you would have retained every directory block but Track 
18, Sector I. and the BAM would have been re-written. As you 
know, after a quick new the diskette appears clean. But after 
changing two bytes (the link pointers to the next directory block 
on the first directory block), you could find all but the first eight 
filenames back. From this point, a validation would bring back 
those files. Then a comparison for allocated sectors versus 
sectors with data but not allocated begins. You could rebuild, 
using false filenames, in this way. But quick NEW's are silent - 
they do not rattle the head about. Something weird must have 
happened during your full new. 

If you turned the drive off during the head rattling stage, then 
turned the power back on with the diskette .still in the drive, 
there is a pretty good chance that the power surge and your 
head racing across the disk surface caused the glitch, not your 
ill fated new. Your only recourse now is to salvage all you con 
from the diskette by rebuilding It with whatever disk doctor type 
program you can fmd. Several exist, and some have fairly 
automatic features for doing just what you need - some are 
even in the public domain. You might also obtain some infor- 
mation on disk format which could help when deciphering data 
(Anthology page 47 to 49) Good luck. 



Remotely Noteworthy: First, I would like to thank all of you 
for one of tfie best Commodore computer related magazines 
there is. 1 have gotten more information from my past year's 
subscription to you than from any other magazine. In your 
networking and communications issue, there was a program 
called Remole-64 which allowed use of the computer through 
the C-64 RS-232 port. 1 knew I could use this with my BBS, and 
now after typing in the source, modifying the code, etc.. i have 
started to learn assembly language, I now have the routine 
included in by BBS so I can call remote to do updating, i just 
wanted to say thanks for the good work and please keep it up!!! 
Your address/subscription info has been put on by BBS for all 
users who want to make a good investment. 

Joe Minuni, Royersford, Pennsylvania 

When Chris was writing Ren\ote''64, he told me that it would be 
perfect for a bulletin board system. Since then he has been 
waiting for the news you have given. Thanks for making Chris 's 
day. 



The Error Of Our Ways; More Often Oops Than Bloops 

As our sa!e,s figures continue to climb, so do the amount of 
letters we receive. We appreciate these letters, because It keeps 
us informed of your likes and disklikes regarding our maga- 
zine. Unfortunately, the number of complaints regarding our 
program listings have also increased. At times, the complaints 
are valid. On occasion, errors have been known to appear 
somewhere between the time we edit the articles, and when all 
is ready for print. A messed up byte over the phone lines, an 
error due to an incorrect translation, or some place other than 
we are looking. In truth, errors do slip by, but all too often they 
are so insignificant that we canH even justify mentioning them 
in a later issue. 

Now, about 90 percent of all letters received can have their 
errors traced back to keying the programs in. Complete pro- 
gram lines missing, periods instead of commas between ele- 
ments in a data statement, mispelled variable names, and a 
multitude of other equally avoidable errors. Recently, 1 re- 
ceived a letter that really let us have it for three mistakes. The 
first was ours, but it was only a missing quotation mark after a 
print statement. An easy mistake to correct, considering that 
the program was in our Bits and Pieces column. 

The other two belonged to our reader. But the real rub came 
when the reader stated emphatically that we were in the 
wrong. A difficult form of criticism to swallow. I won't detail the 
errors here for the same reason we find it difficult to answer 
such letters publicly. 

Instead o( belabouring the point with similar stories, all 1 ask is 
for you to check your work more closely before coming to the 
conclusion that we messed up. We all make typing errors, and 
depending on the hour or several other affecting conditions, an 
error can be staring you in the face and you wouldn't see it if it 
punched you in the nose- Believe me. 1 know! Sometimes 1 key 
an entire line over, or have someone else take a look, or even 
just explaining it to someone else can make the mistake pop off 
the page. Although not perfect, we do scrutinize as best we can. 
Every program is tested within reason and the listings go 
straight into the typesetter much like you send one to your 
printer. So have one more look - it will lake you less time than 
writing. 

Thanks for your time, and please keep those letters coming. 
Richard Evers, Editor 
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TransBASIC 
Installment ^6 

This instalment of TransBASIC presents a grab-bag of new 
modules, some of which contain general purpose routines that 
could be used again in the future. The first module we'll look at 
is a very long one, USE, which appears as Program 1 . 

USE is a fast merge command that will merge modules (or 
BASIC programs) much more quickly than the ADD command 
we have been using so far. In addition, it will automatically 
update line 95 ot the TransBASIC kernel (which gives the 
number of statements and functions in the dialect) using the 
information contained in line 2 of the merged module. The 
presence of this feature, which proved unexpectedly hard to 
code, is largely responsible for making Program 1 so long- 
There are two differences between the merge algorithm in USE 
and the standard one found in routines like ADD. Most merges 
read in a program line from disk, and merge it individually, 
using the same routines BASIC uses when you enter a new line 
from the keyboard. This is a four step procedure: 1) search the 
program in memory for a line with the same number and delete 
it if found (moving ail higher- numbered lines downward to 
close the gap); 2) rechain the program, and perform CLR; 3) 
open up a space to accommodate the new line {moving all 
higher numbered lines upward again), and insert the new line; 
4) again rechain the program, and perform CLR. 

Anyone who has added a line to a long program knows that the 
above procedure is by no means instantaneous, but can take a 
good second or two before the cursor returns. When an entire 
program, subroutine or TransBASIC module has to be merged 
in this way, you can be left drumming your fingers on the desk 
for quite a while before the work is finally done. USE sacrifices 
the convenience of the ROM routines in favour of an approach 
designed specifically for merging rather than entering a single 
line at the keyboard. It goes like this; Lines are read into a 
special buffer in free memory, and their numbers are compared 
with a line number of the program in memory (the main 
program). If the new line number is less than the line number 
in the main program, another line is read and added to the 
buffer, and the process repeats, if the line numbers are equal, 
meaning thai the line in the main program will be deleted, the 
pointer into the main program is advanced to the line follow- 
ing, a new line is read from disk, and the process repeats. If the 
new line number is greater than the one in memory, the 
higher-numbered lines of the main program are moved up or 
down the required number of bytes, the buffer is copied into 
the main program, and the process repeats. The rechain and 
CLR step is performed only at the end of the merge. The gain in 
efficiency from this method results in merges that are virtually 
as fast as regular program loads. 

The first thing you should do with the module is replace the 
nB/ADD.OBJ" file used for constructing TransBASIC dia- 



Nick Sullivan 
Scarborough^ Ont. 

lects with a new file called " TB/USE.OBJ " . To do this, use the 
following procedure: 

1) Load and run the program " TRANSBASIC " , which sets 
up "TB/ADD.OBJ" and loads the TransBASIC kerneL 

2) Merge the USE module with the command: ADD " USE 

3) Alter line 95 to: 95 XTRA .BYTE 3,0 

4) Assemble the source file with PAL or similar. 

5) Save the resulting object file as " TB/USE.OBJ " 

6) Load the "TRANSBASIC" program again, alter hne 130 to: 
130 A = 1: LOAD "TB/USE.OBJ " ,8,1 , and resave it. 



Three of the subroutines in the USE module may find use 
elsewhere. One is the memory block move routine MVMEM 
(lines 8250 to 8414). To use this routine, set up the pointers 
MVSTRT, MVEND and MVDEST with the appropriate ad- 
dresses for the area you wish to move. The instruction SYS 
MVM2 will perform the move. Sometimes it is convenient to 
make MVEND point to the first free byte beyond the move area, 
rather than the last byte within it. If you do this, call the move 
routine with JSR MVMEM. which subtracts one from MVEND 
then falls through into the main routine. If MVSTRT is greater 
than or equal to MVEND. or if MVSTRT is equal to MVDEST no 
move will be performed, but no error is generated. 

The second subroutine that might prove useful is DELINS (lines 
8054-8172). which in turn makes use of MVMEM. DELINS 
deletes text between the addresses pointed to by SDPTR and 
T3/T4. and replaces it with text between SIPTR and T5/T6. 
The start-of-variables pointer at $2D/2E is taken to mark the 
first free byte beyond the affected memory area. In the case of a 
BASIC program, this is what you would want. If you use 
DELINS to modify some other part of memory, you would save 
the start-of-variables pointer, write the appropriate address 
into $2D/2E, call DELINS, then reload the start-of-variables 
pointer before returning to BASIC. By the way, any time you 
change a BASIC program from machine language, you should 
always rechain and perform CLR before you return control, JSR 
$A659: JSR $A533 will do this for you. Alternatively, if you are 
returning to direct mode, you can do the whole operation by 
exiting with: JMP$A52A. 

The third subroutine is a very short one called ERRPGM. Its 
purpose is to generate a 7SYNTAX ERROR if it is called in 
program mode rather than direct mode. The main use for this is 
in commands like USE that alter the program in memory. 
There is no setup required, just JSR ERRPGM. 

The module MOVE & FILL (Program 2) provides two com- 
mands that are more commonly found in machine language 
monitors: move a block of memory, and fill memory with a 
value. The FILL command uses a subroutine called MEMFIL 
that you might want to use if you're writing a command to zero 
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an array or a high-res screen, for example lo fill in a portion of 
colour memory or screen memory. There are several entry 
points, depending on the way you want to set up your parame- 
ters. The start address of the area to be filled can be supplied 
either in .Y/.A (JSR MEMFIL or JSR MEMFl) or in T3/T4 (JSR 
MEMF2 or JSR MEMF3), The size of the area to be filled can be 
specified as either the end address of the area (JSR MEMFl or 
JSR MEMF2)orthenumberofbytesto be filled (JSR MEMFILor 
JSR MEMF3), The routine will get this parameter from $1 4/15, 
In all cases, the value with which memory is to be filled is 
supplied in the X register. The MEMFIL routine will exit 
without doing anything if the start address is greater than the 
end address, but will return an ?ILLEGAL QUANTITY ERROR if 
you ask it to fill more bytes than are available between the start 
address and $FFFF. 

The third module this month is DOS SUPPORT (Program 3), by 
Darren Spruyt of Gravenhurst. Ontario, which supplies Trans- 
BASIC with a battery of commands simitar to those in the DOS 
WEDGE. Darren has written these commands in an interesting 
way that avoids the need to open a file in the 64. You might find 
it useful to study his coding to see how this trick is done. 

One problem with very large BASIC programs is the time taken 
by the interpreter to locate destination addresses for GOTOs 
and GOSUBs, which can severely impair performance, espe- 
cially in the case of subroutine calls from within loops. This 
problem is addressed in the LINE CALC module (Program 4), 
which allows you to save time by calculating jump addresses in 
advance. The L[NE( function in this module returns the address 
of a specified program line. You might use this in a number of 
ways, but for Ihe purposes of this module you are expected to 
assign it to an integer variable. The statements JUMP (equiva- 
lent to GOTO) and CALL (equivalent to GOSUB) make use of 
the address stored in the variable to go directly to the line 
without having to search through the program lo find it. 

Program 5. the BEEP module, provides a convenient way of 
generating a beep tone of a pitch and duration specified in the 
command parameters (the default is a very short C in octave 5). 
You can use this to give audible feedback for key presses, for 
example, or even to generate simple sound effects, as in the 
following little routine; 

1 00 FOR I = 1 TO 50 

110 BEEP 7.RND(1)'2400-f2400 

120 NEXT 

BEEP uses voice 3 of the SID chip; the other voices are not 
affected, except that Ihe volume is set to 15 and the filters are 
turned off. 

The last program this time is not a TransBASlC module, but a 
little BASIC/ML routine for those who use Brad Templeton's 
POWER and PAL (from ProLine Software) in their program 
development. The program is called STRIPPER (Program 6), 
and its purpose is to remove comments from a PAL source 
program in memory (a long job if you do it by hand). As shown, 
you invoke the machine language with SYS 900, but the code is 



relocatable if you want to put it somewhere else. Keep in mind 
that it only works if you have POWER/ MO REPOWER in 
memory. 

New Commands 

This part of the TransBASlC column is devoted to describing 
the new commands that will be added each issue. The descrip- 
tions follow a standard format; 

The first line gives the command keyword, the type (statement 
or function}, and a three digit serial number. 

The second line gives the line range allotted to the execution 
routine for the command. 

The third line gives the module in which the command is 
included. 

The fourth li[ie (and the following lines, if necessary) demon- 
strate the command syntax. 

The remaining lines describe the command. 

USE (Type: Statement Cat *: 1 1 7) 
Line Range: 7192-8052 
Module: USE 

Example: USE " MOVE & FILL 
Example: USE " CURSOR POSITION " ,9 
Like the ADD statement introduced in instalment *1, this 
command merges a program in memory with one from disk. A 
device number may be specified, as in the second example; 
otherwise, the device set by the DEVICE statement (qv) is used, 
with a default of 8. If the program being merged is a TransBA- 
SlC module, with a line 2 in the standard format giving the 
number of statements and functions; and if the program in 
memory has the TransBASlC kernal line 95, labelled XTRA. 
giving the total number of statements and functions; then the 
USE command will automatically update line 95 using the data 
in the new line 2. USE is illegal in program mode, generating a 
7SVNTAX ERROR- 
MOVE (Type; Statement Cat^'iliS) 
Line Range: 8174-8248 
Module: MOVE & FILL 
Example: MOVE 1024,1523,1524: REM COPY TOP OF 

SCREEN TO BOTTOM 
Example: MOVE 53248;4096, 12288: REM COPY CHARS 

TO RAM 
This is a standard block move, like the .T command of a 
monitor. The syntax of the first example is comparable to that 
used by most monitors: the first parameter is the address of the 
first byte in the block to be moved; the second parameter is the 
address of the last byte; and the third parameter is the destina- 
tion address of the move. The parameters are separated by 
commas. The second example uses an alternative syntax. Here 
the second parameter is the number of bytes to be moved, and 
the first separator is a semicolon instead of a comma. If the 
parameters do not make sense (for example, if the end address 
is greater than the start address), no move takes place, but an 
error is not generated. Also, it the destination address is the 
same as the start address, no move takes place. You therefore 
cannot use this command to directly copy the BASIC ROM into 
RAM, forexample. 
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FILL (Type; Staletnent Cat "-.UO] 

Line Range: 8504-8558 

Module: MOVE 8. FILL 

Example: FILL 832J023: REM CLEAR CASSETTE 

BUFFER 
Example; FILL 631:10,13: REM PACK KEYBOARD 

BUFFER WITH RETURNS 
This statement fills an area of memory with a specified value. In 
Ihe first example, the two parameters, separated by a comma, 
correspond to the start and end addresses of the area to be 
filled. In the second example, where the separator is a semico- 
lon, the second parameter gives the number of bytes to fill. The 
third parameter, if present, specifies the value with which 
memory is to be filled; the default value is 0. 

CAT (Type: Statement Cat *; 123) 

Line Range; 8644-8740 

Module: DOS SUPPORT 

Example: CAT 

This statement lists a disk directory to the current output 

device. Programs in memory are not affected. 

DOS (Type: Statement Cat'^:124) 

Line Range: 8742-8764 

Module: bos SUPPORT 

Example: DOS "SO:ITCHFILE" 

This statement sends a command to disk. 

DEV (Type: Statement Cat*: 125) 

Line Range: 8766-8782 

Module: DOS SUPPORT 

Example: DEV 9 

This statement sets the device number for the other disk 

commands in the DOS SUPPORT module, and for the USE 

statement (qv). Allowable device numbers are in the range 8- 

I ] . The default device number is 8. 

DLOAD (Type: Statement Cat*: 126) 

Line Range: S808-881 2 

Module: DOS SUPPORT 

Example: DLOAD "0:MURPHY 

This statement loads the named file ffojn disk, using the 

current device number. 

DSAVE (Type; Statement Cat*; 127) 

Line Range: 8814-8818 

Module: DOS SUPPORT 

Example: DSAVE "0:MURPHY.V2 

This statement saves the named file to disk, using the current 

device number. 

DS$ (Type: Function Cat *: 128) 

Line Range; 8598-8616 

Module: DOS SUPPORT 

Example: PRINT DS$ 

This function returns the disk error channel string, and clears 

the channel (i.e. a subsequent call, with no disk operation 

intervening, would return "00,OK,00,00"). 



DS (Type: Function Cat*: 129) 

Line Range; 8618-8642 

Module: DOS SUPPORT 

Example: U = DS 

This function returns the error number from the disk error 

channel, and clears the channel (i.e. a subsequent call, with no 

disk operation intervening, would return 0), It is equivalent to; 

VAL(LEFT$(DS$.2)) 

JUMP (Type: Statement Cat*: 130) 
Line Range: 8846-8868 
Module: LINE CALC 
Example: JUMP QUIT% 

The argument of this statement is an integer variable whose 
value is the address of a BASIC program line. The effect is the 
same as a GOTO, but is generally faster, considerably so in long 
programs. 

CALL (Type: Statement Cat*; 131) 

Line Range: 8870-8900 

Module: LINE CALC 

Example: GOSUB JSTK% 

The argument of this statement is an integer variable whose 

value is the address of a BASIC program line. The effect is the 

same as a GOSUB, but is generally faster, considerably so in 

long programs- 

LINE{ (Type: Statement Cat*'; 132) 
Line Range; 8902-8964} 
Module: LINE CALC 
Example: QUIT% = LINE(5000) 
Example: QUIT%= LINE(GOTO 5000) 
Example; J2STK% = UNE(J1STK%4 100) 
This function returns the address of the BASIC line whose line 
number is returned by the argument expression. This can be a 
simple line number (example 1), or any other expression 
(example 3). The keyword GOTO will be ignored if it is used 
before the line number (example 2). Its purpose is to allow 
automatic renumbering of the line number with a renumbering 
utility. If the referenced line number does not exist, the func- 
tion returns a value of zero. 

BEEP(Type; Statement Cat *: 133) 

Line Range: 8966-9042 

Module: BEEP 

Example: BEEP 

Example: BEEP 6 

Example: BEEP 16,3034 

This statement produces a tone from the SID chip, using the 

sawtooth waveform in voice 3. The volume and sustain are set 

to 15; the attack, decay and release are set to 0, and filtering is 

turned off. Without parameters (example 1), the tone produced 

is a very short beep with a pitch of C in octave 5. The duration 

of the beep can be set with the first parameter (example 2), 

which will lengthen the beep by a factor of the parameter value 

plus 1 . The pitch is set with the second parameter (example 3). 

Thus the default beep is equivalent to: BEEP 0,8583 



The Transactor 



n 



Volume 6, Ittiie04 



Program 1 : USE 




CF 
OP 


7304 
7306 


jsr se0!s 
jsr open 




LO 
CG 


7486 
7488 


bne dkc1 
|sr prgget 

■ 1 n f% 4i 


.no 




Because of the ^heer size of USE. tve were raiher douhlfu! 


HA 


7308 


jsr dskchk 


; check error chan 


HH 


7490 


cmp# 3 

hi i 






anyone ivoutd at lucith type i! in hi ha j 
even buihered to show the Venhzer coi 


'rn not sure wfiy we 


£F 


7310 


isr circhn 


; discard Start addr 


BP 


7492 


bne dkcl 

cic 

byte $24 
sec 

php 

jsr prgget 

Ida $90 


;no 
;flag - ok 

;'bil' 

.flag - error 

,push flag 
igeteTTmsgbyle 
.lest end of msg 




fes (hrte of habtt. I 


NC 


7312 


Idx #$63 




BC 


7494 




suppose) However ive did UKin! fo indude H for ifie soke of 
documentalion We apologize hr Ihe sniaft type, but whaf 
you si'e is a cutiipromise; Ihe source for USE couldn'f 
possibly have been printed at regular size -M.Ed 


Nl 

GL 
IL 

LL 
IM 


7314 
7315 

7318 
7320 
7322 


jsr chkin 
isr prgget 

|sr prgget 

Ida $2b 
Idy S2c 


; create ptr into 

; program in rnemory 


NG 
Gl 

EN 
BL 
GP 


7496 

7498 dkcl 
7500 dkc2 
7502 dkc3 

7504 






HJ 

FH 
Al 
HH 

DO 

IH 


Orem use Gu fie 18/85) 

1 : 

2 rem 1 statement, functions 

3 

4 rem keyword characters 3 




GL 
AG 


7324 
7326 


sta 13 
sly 14 


; al 13/14 


MB 
00 


7506 
7508 


beq dkc3 

Ida #0 


:no 

; clear status byie 








JD 
LO 


7328 
7330 


Ida #0 

sla uzfT 


.clear flags 
.end of disk prg 


CC 
NC 


7510 
7512 


sla $90 
pip 


;pulflag 








ON 
Nl 


7332 
7334 


Sla uzf2 
sla uzf3 


.lines 10 delete 
.update line 95 


OL 
IE 


7514 
7516 


bcs pggl 
lis 


;quil 






■J J 1 

NJ 

FM 


6 rem keyword routine line ser fl 

7 rem use uze 7192 117 


GJ 
MG 


7336 
733S 


sta simctr 
sta funcir 


; count nevi/ slmis 
.count new funcs 


EN 
AF 


7518; 
7520 prgget 


isr getin 

1 


, gel disk byle 






1 ¥ 1 

MM 

GN 
GM 


B 1 BtF »""H^» ^FTW ^n 

8: 

9 rem u/mvmem [8250/1 20) 
lOremu/delins (8054/122) 




IN 


7340 uz6 


isr makbuf 


.create receive ^b!r 


ON 


7522 


pha 










FN 
DC 


7342 uz7 

7344 


J 

sec 

Ida $37 


;lesl buffer can 

. accommodate new 


HN 
Bl 


7524 
7526 


Ida $90 
and #$Dt 


.lesl status error 
; except eoi' 






^b" ' ' 

BA 
Al 


11 rem u/errpgni (9150/135) 
1? ' 




BK 
OE 


7346 
7348 


sbc 15 
Ida $38 


, program line 


JG 
CP 


7528 
7530 


bne pggl 
pla 


;yes 






r^ 1 

LO 

CI 
AF 


1 fcj n 




00 

HL 


7350 
7352 


sbc (6 
sbc #2 




IF 
FF 


7532 

7534 pggi 


rts 

jsr uzl 1 


.dose files, clear 






1 J aerri ^ = = = = t»HBn? ■■ 

14: 

39 setlfs = $nba 










PL 


7354 


bcs uzl 2 


.yes 


KH 


7536 


Ida *< uzerr 


;'merge error' 






n 1 

KD 
BE 


40seinam = Sffbd 
41 Open = Seicl 
42chkin = Seiie 




LA 
ON 


7356 
7358 


Ida linllg 
beq uz8 


.test lines jnbff 

.no 


GD 

HK 


7533 

7540 


Sla $22 
Ida #>uzerr 








Nl 




PC 


7360 


|sr diz 


.merge lines 


IH 


7542 


imp $a445 








Nl 


^^^H ^^^H ^ B ^ ^ B B 

43 dose =; Selcc 




DL 


7362 


|mp uz6 


.create new buffer 


OO 


7544. 


H F— 1 


^ 






IB 


^^^H ^^^H ^^^ ^^ ^^^ ^m ^m 

44 circhn = Sffcc 




HO 


7364 uz8 


jsr uzll 


;dose files, clr 


lO 


7546 uzerr 


.asc mergE 








1 l_r 

IK 


B B ^^H B B ^^H B B B B ^m ^ B 

45geiin = $ei24 

46, 

132. asc "usE' 

1132 word uze-1 




CB 


7366 


imp Sa435 


;'oul of memory' 


CP 


7548, 










4J 1 > 

EK 
Ml 
KK 




DM 


7368 UZ9 


Ida lintig 


, lest lines jn bfr 


IM 


7550 lintig 


byleO 










Bl 


7370 


beq uzlO 


.no 


CO 


7552 mien 


byleO 










LD 


7372 


jsr dIz 


.merge lines 


KN 


7554 uztl 


byieO 


;disk prg end fig 

■■ 1 J ^1 






r ^ 1 \ 

PC 


7192 uze jsr errmem 
7194 Ida #2 


.Check direct mode 


KL 


7374 uzIO 


jsr chkJ95 


.handle line 95 


FJ 


7556 uzl2 


byleO 

1 J~L 


;linestodeHlg 
: update line 95 fig 






IF 


,make space tor ,p 


ON 


7376 


IS' uzl 1 


,wrap up 


OB 


7558 uzf3 


byleO 






Bl 
KM 

GH 

Ml 
MF 


7196 |Sr $b4t4 
7198 |sr $ad9e 
7200 ]Sr $b6a3 
7202 jsr $b4t4 
7204 lay 
7206 bne uzl 
7208 imp SalOS 

72iOuz1 Ida #"," 

7212 Eta ($33),y 
7214 my 
7216 Ida #"p" 
7218 sla ($33},y 


.evaluate hie name 


LK 

II 

DB 


7378 

7380 uzl 1 
. 7382 


jmp Sa474 
|sr circhn 
Ida #$62 


;exillo ready" 


OP 

Jl 

GO 


7560; 
7562 gellin 
7564 gil1 


Idy #0 

sly 12 


:gei line from 
; disk, store from 






;make space 
,tesl null 


. NE 
MH 


7384 
7386 


jsr close 
jsr $ffe7 


;'cla»' 


FN 
EJ 


7566 
7568 


jsr prgget 

Idy 12 

^B 1-* ^ 


. firsl free byte 
. in buffer 






1 r 1 I 

MB 
NJ 
KC 
DD 
OA 
HH 
JD 


I'syniax error' 
,add ,p 


NH 
ID 
EH 


7388 

7390 
7392 uzl 2 


jsr $a533 
jmp $a659 

jsr g ell in 


.rechain 

xir 

;gel disk prg line 


JC 
PF 
DE 


7570 

7572 
7574 


Sla (l5).y 
Idx $90 
stx uzf1 


.status to disk prg 

; end flag 






PN 
CO 


7394 
7396 


Ida uztl 
bne uz9 


.test if final line 
.yes 


BM 
Ml 


7576 
7578 


bne gi4 
cpy #4 


;end of disk prg 
; tesM ink, line 'Z 








HC 


7398 


jsr chkl2 


. handle line2 


MJ 


7580 


bcc gtl3 


.yes 








PE 


7400 uzl 3 


|sr com par 


;Ies[dskline#< 


MJ 


7582 


lax 

■ IB 


itestendof line 






PJ 

LB 


7220 iny 
7222 tya 
7224 pha 
7226 Ida $33 
7228 pha 
7230 Ida $34 

7232 pha 
7234 jsr S79 

7236 beq uz4 

7238 |sr Saeld 


, push filename 
, lenqlh 


LB 


7402 


bcc uzl 5 


, prg line #- no 


CO 


7584 


beq gu4 


,yes 






FK 


7404 


php 


;push compare flags 


00 


7586 gtl2 


iny 

1 ^ 


.gel another byte 






EL 


■ ^ 


Fl 


7406 


]sr updabp 


,adv buffer pointer 


NL 


7588 


bne gill 


■ BB B J— t ^— ^1 J 1 ^^ 1 






LH 

IL 

MM 

Ml 


,push filename addr 


JK 
JD 


7408 
7410 


sta linflg 
P"P 


;selbfr-usedflag 
.test line #S equal 


MH 

HF 


7590 
7592 


jsr uzl 1 
imp $ab66 


; illegal 256lh byte 
i'file data error' 








KM 


7412 


bne uz7 


;no. more from disk 


LJ 


7594 gil3 


cpy #1 


;test linkhr-byie 








KM 


7414 


Ida uzf2 


.test delete flag 


Nl 


7596 


bne gt12 


;no 

L ■- 1 A 






1 Tl L 

HF 

IF 


;testdev parameter 
,no 


HL 
PK 


7416 
7418 


bne uzl 4 
Ida t3 


; inifd - yes 
;init start delete 


FL 
BJ 


7598 
7600 


tax 
bne 91I2 


;testlink = 
;no 

b J ' 1 _i 






1 ■ 

ID 


.check for comma 


FF 


7420 


Idy 14 


; ptr from ptr into 


NC 


7602 

^m yi. JB ^ 


dex 

six uzll 


:sei disk prg end 
.flag 

1 ^h_ 






NP 


7240 |S' $b79e 

7242 .byte$2c 


: evaluate device # 


GO 


7422 


sta sdplr 


. program m memory 


LE 


7604 






1 ^ 1 

OH 


i'bil' 


KF 


7424 


sly sdplr + 1 




KA 


7606 gll4 


sty linlen 


,save me length 






^_r I 1 

PC 


7244 uz4 Idv device 


.default device 


CO 


7426 


sly uzf2 


.set delete flag 


EK 

B ^m. 


7608 


ris 








lA 


7246 Stx t2 
7248 Ida #$62 




KB 


7428 uzl 4 


isr 13 bump 


.advance prg ptr 


AO 


7610 ; 




rrf hf 






1 f^ 
DJ 
HM 
OL 

HB 


close 98 


CP 


7430 


jmp uz7 


;new line from disk 


IJ 


7612 makbuf 


cIc 


;pul buffer half 






7250 jsf close 
7252 Ida #0 
7254 jsr seinam 
7256 Ida #$62 




lA 


7432 uzl 5 


Ida linfig 


;test lines in hU 


OD 


7614 


Ida $37 


; way beiween sla 


1 




:0pen98,dv,l5 


JN 

LH 


7434 
7436 


beq uzl 6 
|sr dIz 


,no 

; merge lines 


FH 
CK 


7616 

7618 


adc $2d 
pha 

rk J— L r'm 


r 1 1 ^J 

; of variables and 
; end of basic 






1 ' i-^ 

FJ 




IH 


7438 uz 16 


isr compar 


;lestdsklineM< 


OF 


7620 


Ida $38 








F Br 

GN 


7258 Idx 12 




Jl 


7440 


bcs uzl 7 


. prg line # - no 


HH 


7622 


adc t2e 








HD 


7260 Idy #$0l 
7262 jsr setlts 
7264 jsr Open 
7266 Ida 12 




IH 


7442 


js^ [3bump 


; advance prg ptr 


BK 


7624 


Isr 


L XX L J 






1 I B_r 

IC 

EN 




GN 


7444 


dc 


;loop 


OK 


7626 


sta sipir+1 


; buffer start 








DO 


7446 


bcc uzl 6 




OE 


7628 


sta 16 


; buffer pointer 






JO 


;lest dev present 


DE 


7448 uzl 7 


Ida 15 


.save buffer plr 


GF 

^^ 1 


7630 


pla 








KK 


7268 isr Sftbl 


; (hsten) 


CK 


7450 


Idy 16 




El 


7632 

^m j^ fl. J 


ror 

± - L ■ 








MP 


7270 lar Stfae 


, (unlisten) 


AO 


7452 


sla $22 




PO 

1 ^"x 


7634 


Sla siptf 








LP 
JK 


7272 Ida S90 

7274 beq uzS 
7276 Idx #5 


,(c^eck status) 


FE 

GM 


7454 
7456 


sly $23 
1^ makDuf 


;create new buffer 


ID 

MB 


7636 
7638 


sla t5 

Ida #0 


;dear buffer -usee 

BL 


1 




NL 




JA 


7458 


Idy #$fl 


;copy most recent 


EK 


7640 


sta linfig 


-flag 






JL 


7278 imp ($300) 


.'dev noi present' 


CM 


7460 uzl 8 


my 


: line jnto new 


GM 


7642 


rts 








EP 
NL 


7280 u^5 jsr dskchk 
7282 Ida #$63 


.check error chan 
.close 99 


DJ 
PL 


7462 
7464 


Ida ($22). y 
sla (t5).y 


. buffer 


CF 

CL 


7644; 

7646 updabp sec 


; advance buffer p 


t 




JO 


r ^^^_^^^ B^i»B-» ^^ ^r ^r 

7284 jsr Close 
7286 r^a 




IN 


7466 


cpy iinlen 




CG 


7648 


Ida iinlen 


; by length Of mo f 

. B 


ii 




NH 


ipulMile name data 


KG 


7468 


bne uzi8 




JA 

1 ■■ 


7650 


adc 15 

^ xC" 


; recenl line 






HE 
CA 

HE 


7288 tay 
7290 pla 
7292 lax 




NC 

GK 

IK 


7470 beq uzl 3 

7472. 

7474dskchk Idx #$62 


;gel error channel 


IE 
BN 
CA 


7652 
7654 
7656 


Sta 15 

Ida HQ 
adc 16 








1 F ^^ 

GA 


■_B 'wr ^^ LB-BB 

7294 pla 




NK 


7476 


jsr chkin 


. byte 


AF 


7658 


sta 16 








GB 


B_ ^r ■ |— 

7296 jSr seinam 


.open 99, dv. 99. 


IF 


7478 


jsr prgget 




IN 


7660 


rts 








JL 


7298 Ida *$63 


. "lilename.p" 


DG 


1 7480 


cmp#'2- 


;test err # < 20 


EG 


7662; 










AA 


^^ LgJ XgJ n ^^ XTl ^ 

7100 Idx l2 


■ ' r 


GA 


7482 


bcc dkc2 


;yes 


EC 


7664 compar idy #i 


;test memory -pre 

_ r 


1 




1 U *i 

FF 


J ^jJ ^^l^ H 'mm F^ %^h 

7302 tay 




PI 


7484 


cmp*'7' 


;lesierr# = 73 


PC 1 7666 


sec 


; ptr at end of prg 


- 


\ nw TranractOf 






18 






MUunM6,Uuie04 


] 





HE 


766B 


Ida (t3),y 




LE 


7850 


sta 13 


; and delete start 


EF 


8032 


byleO 






Bl 


7670 


beq com2 


yes - sec & exit 


PC 


7852 


sty 14 


; pointer 


IN 


8034, 








NC 


7672 


Idy *3 


,sel carry if 


BM 


7854 


sta sdptr 




PJ 


8036 d(z 


Ida Ljzf2 






OM 


7674 


Ida (i3),y 


, current line it of 


KA 


7856 


sty sdptr + 1 




GJ 


8038 


bne dizi 






HL 


7676 


cmp([5),y 


; prg in memory > 


EN 


7858 


adc #2 


;set Ghrget plr to 


Ki 


8040 


Ida t3 






AD 


767a 


bcc coml 


. line # from disk 


CG 


7860 


sta S7a 


;starlof Irne95 


OO 


8042 


Idy 14 






OA 


7680 


bne coml 




EM 


7862 


bcc c95H 




PH 


8044 


sta sdptr 






NL 


7682 


dey 




IJ 


7864 


my 




IM 


8046 


sty sdptr + 1 






HF 


7684 


Ida (13j,y 




EA 


7866 09511 


sty $7b 




AG 


8048 dizt 


Ida «0 






EK 


7686 


cmp(l5),y 




LP 


7868 


|sr S73 


;get first byle 


LL 


8050 


sta Ljzf2 






MM 


7688 com 1 


ris 




CE 


7870 


cmp#"x" 


;Iest= x' for xtra 


KO 


8052; 








PP 


7690 com2 


da #1 


; clear processor 


OF 


7872 


bne rdn2 


,no-exit 


KD 


8054 deJins 


Ida 13 


;sel up start of 




IL 


7692 


rts 


;?fiag 


EM 


7874 C95I2 


|sr $73 


,get a byle 


LK 


8056 


Idy 14 


; move 




El 


7694; 






IL 


7876 


beq rdn2 


;end of line - ejiil 


Mf 


8058 


sta mvstrt 






FK 


7696 I3bump 


Idy #4 


; advance pointer 


KK 


7878 


bcs c95 2 


; not a digit 


Al 


8060 


sty mvslrl + 1 






CN 


7698 mkul 


ida (t3),y 


: into program in 


CP 


7880 


Ida $7a 


;back up eg plr 


NM 


8062 


sec 


caic if bytes to 




GC. 


7700 


beq mku2 


; memory by length 


DA 


7882 


bne c95l3 




NM 


8064 


sbc sdptr 


delete 




Gi 


7702 


iny 


: of current line 


HI 


7884 


dec $7b 




MJ 


8066 


sta S22 


S22/23 




AE 


7704 


bne mkul 




JJ 


7886 c95f3 


dec $7a 




LD 


8068 


tya 






NO 


7706 


imp pggl 


.iffegal 256th byte 


NG 


7888 


da stmclr 


;save# new stmts. 


CF 


8070 


sbc scfpTr+1 






EN 


7708 mku2 


tya 




DF 


7890 


sta $24 


; functions 


PE 


8072 


sia S23 






PJ 


7710 


sec 




KB 


7892 


Ida funclf 




DI 


8074 


sec 


calc (# bytes to 




ED 


7712 


adc 13 




DK 


7894 


sta $25 




HP 


8076 


Ida 15 


insert) minus (# 




CJ 


7714 


sla 13 




AE 


7896 


jsr c2l2 


;get # stmts, funcs 


HC 


6078 


sbc siptr 


bytes to delete) 




IE 


7716 


Ida 14 




BF 


7898 


Ida uzf3 


:tesi update req'd 


MA 


8080 


pha 






DA 


7718 


adc #0 




PI 


7900 


beq rcin2 


:no - exit 


KL 


8082 


Ida 16 






K\ 


7720 


sta t4 




HH 


7902 


sei 




KG 


8084 


sbc siptr + 1 






GB 


7722 


rTs 




FG 


7904 


sed 




FG 


8086 


tay 






CK 


7724: 






IF 


7906 


dc 




AC 


8088 


pla 






CB 


7726chkl2 


Idy #2 


;lesf if current 


HH 


7908 


Ida stmctr 


,calc new stmt, 


LB 


8090 


sec 






EG 


7728 


Ida (t5),y 


; line from disk is 


IM ' 


7910 


adc $24 


: f unc lota s 


CD 


8092 


sbc $23 






JL 


7730 


cmp#2 


; line #2 


EH 


7912 


sta stmctr 




CG 


8094 


sla S22 






FN 


7732 


bne c2l4 


;no 


JK 1 


7914 


bcs c95i4 


>99, unreasonable 


HF 


8096 


lya 






GB 


7734 


iny 




CD, 


7916 


Ida functr 




LD 


8098 


sbc $23 






BJ 


7736 


Ida (15), y 




PG 


7918 


adc S25 




LG 


8100 


sla $23 






LN 


7738 


bne c2l4 


;no 


EHj 


7920 


sta functr 




OL 


8102 


Clc ; 


;add resuJi lo 




KC 


7740 


Ida 15 


:sel chrgel poinler 


10 


7922 c95i4 


eld 




AJ 1 


8104 


Ida 13 


, prg -in -mem ptr 




PL 


7742 


Idy 16 


:lo start of line 


CI 


7924 


di 




KG 


6106 


adc $22 ; 


, to yield move 




FK 


7744 


adc #2 


: in buffer 


LB 


7926 


bcs rdn2 




JA, 


8108 


sta 13 ; 


, destination addr 




ND 


7746 


sta $7a 




IL 


7928 


|Sf makbuf 


; create buffer 


IC 


8110 


sta mvdesl 






MO 


7748 


bcc c2n 




KH 


7930 


Idy #0 


, create new 


EN 


8112 


Ida 14 






GC 


7750 


(ny 




Gfvl 


7932 C95I5 


Ida l95ixLy 


; line 95 in 


NC 


8114 


adc $23 






DC 


7752 c2ll 


sly S7b 




HG 


7934 


sta (t5).y 


, buffer 


GB 


8116 


sta 14 






Jf 


7754 


jsr S73 


[get first byte 


AO 


7936 


iny 




CP 


8118 


sta mvdest-J-1 






NA 


7756 


cmp #$8f 


.test rem' 


PO 


7938 


cpy #$0f 




EL 


8120 


clc 


add same result 




LL 


775S 


bne c2i4 


; no - exit 


PD 


7940 


bne c95 5 




NH 


8122 


Ida S2d 


to start- of -vars 




PF 


7760 c2 2 


|Sf rdnum 


,gelff new stmts 


BD 


7942 


da stmclr 


, incorporate new 


HJ 


SI 24 


sta mvend ; 


ptrtoyiedmove 




FN 


7762 


bcs c2l4 


^noi a # - exit 


OL 


7944 


|sr J95pul 


; totals 


AN 


8126 


adc $22 ; 


end address and 




AE 


7764 


sly simctr 




FO 


7946 


Ida #",' 




PL 


8128 


sla $2d 


new start- of- vars 




CK 


7766 C2 3 


cmp*"," 


; scan for comma 


DK 


7948 


Sta (t5).y 




BJ 


8130 


Ida $2e 






MC 


7768 


beq c2l5 


; found 


00 


7950 


iny 




ML 


8132 


sta mvend + 1 






KF 


7770 


|SI S73 




GF 


7952 


da fjnctr 




BE 


8134 


adc $23 






FD 


7772 


bne c2l3 




BJ 


7954 


|sr 195 put 




FM 


8136 


sla $2e 






KM 


7771 g2I4 


ris 




GC 


7956 C95I6 


Ida I95txl,y 




LN 


8138 


)Sr mvmem 


move prg in memory 




OE 


7776 c2l5 


|sr rdnum 


;gel# newfuncs 


NK 


7958 


sta (t5),y 




LL 


8140 


Ida sdptr 


gel desl addr ior 




FO 


7778 


bcs c2l4 


,notaff - exit 


IP 


7960 


iny 




AL 


8142 


sta mvdesl , 


new hnes 




IE 


7780 


Sly tLrncir 




FO 


7962 


tax 




Ml 


6144 


Ida sdptr+1 






B 


7782 


inc \j2i3 


jsel update line 


IF 


7964 


bne c956 




OA 


8146 


sta mvdesl +1 






LF 


7784 


ris 


; 95 flag ' 


CC 


7966 


dey 


;setline length 


IP 


8148 


Ida SI ptr ; 


buffer addr is 




AO 


7786; 






KP 


7968 


sty linlen 




AL 


8150 


Idy siptr + 1 , 


start of move 




AF 


7788 fdnum 


|sr S73 


,gela byte 


IP 


7970 


sty uzf2 


;sel delete fig 


KL 


8152 


sla mvstrt 






IK 


7790 


bcs rdn2 


.notadigit-exit 


Kl 


7972 


jsr I3bump 


; advance prg ptr 


ON 


8154 


sty mvstrt + 1 






GO 


7792 


and noi 


,ascii to bed 


AA 


7974 


jsr updabp 


, advance buffer ptr 


OB 


8156 


Ida 15 


buffer pointer 




AK 


7794 


tay 


,save first digit j 


Kl 


7976 

1 


jmp diz 


, merge new [ine95 


EJ 


8158 


Idy t6 


is end of move 




LI 


7796 


jsr S73 


iget a byie 


AK 


7978, 






PP 


3160 


sta mvend 






MK 


7798 


bcs rdni 


;notadjgil-exit 


FD 


7980 I95put 


pha 


;packedbcdto 


KD 


8162 


sty mvend + 1 






00 


7800 


and not 


lasciitobcd 


AO 


7982 


and #Sf0 


. ascii, hi byte 


AO 


8164 


imp mvmem 






IK 


7802 


sia $22 


ipack bed into 


FJ 


7984 


beq 195 pi 




MF 


8166: 








HD 


7804 


lya 


, one dyle 


LA 


i 7986 


^sr 




AE 


8168 sdptr 


word 






JC 


7B06 


asl 




NA 


, 7988 


ter 




BF 


81 70 SI ptr 


.word 






LC 


7808 


asl 




PA 


7990 


Isr 




CG 


8172. 








NC 


7810 


asl 




BB 


7992 


ter 




KE 


8250 mvmem 


Ida mvend 


memory move front 




PC 


7812 


asl 




DA 


7994 


ora #S30 




LH 


8252 


bne mvml 


end - end addr 




PM 


7814 


ora $22 




JA 


7996 


sta (t5),y 


islorelo new line 


BJ 


8254 


dec mvend + 1; 


rs 1 beyond 




AP 


7816 


lay 


.return # in y 


OB 


7996 


iny 




OH 


8256 mvml 


dec mvend 


blocJ^ to move 




DC 


7818 


|sr $73 


,gel next byte 


LH 


8000 195 pi 


pla 


jfow byte 


JL 


8258, 








OM 


7S20rclnl 


clc 


;f ag # valjd 


FF 


8002 


and tf$Ot 




G 


8260 mvm2 


Ida mvstrt ; 


set up pointer 




EF 


7822 rdn2 


rts 




NA 


8004 


ora #$30 




JA 


8262 


Sla $22 ; 


low bytes 




GA 


7824; 






DB 


8006 


sla (t5),y 


;slorelo new line 


El 


8264 


Ida mvdesl 






HG 


7826 chkl95 


Ida uzf3 


:lesl line 95 


10 


8008 


my 




EB 


8266 


Sla $24 






EK 


7828 


beq rdn2 


: needs update - no 


GD 


8010 


rts 




NO 


8268 


Ida mvend + l.lesi it ar^y bytes 




HA 


7830 


Ida #$5f 


;search for line 95 


CM 


80T2: 






lO 


8270 


cmpmvslrl+ 1 , 


bytes to move 




DO 


7832 


Idy #0 




BP 


80l4stmctr 


byteO 




BC 


8272 


bcc mvm5 ; 


no 




CG 


7834 


sta SI 4 




AG 


8016functr 


byleO 




n 


6274 


bne mvm3 


yes 




HM 


7836 


sty S15 




IM 


8018. 






FD 


8276 


Ida mvend 






LO 


7838 


sty u;f3 


; (clear flag) 


KN 


8020 195 tKt 


bytel, 1.95,0 




PD 


8278 


cmp mvstrt 






GP 


7840 


jsr $a533 


; (rechain) 


IK 


8022 


asc " xtra ' 




JC 


8280 


bcc mvm5 ; 


no 




DP 


7842 


|sr Sa613 


, (search) 


NB 


8024 


byte 3 2 




KO 


8282 mvm3 


Ida mvdesl + tlesl moving up 




PN 


7844 


bcc rdn2 


,nol found 


GC 


8026 


asc "byte' 




HA 


8284 


cmp mvstrt + 1 






KE 


7846 


Ida $5f 


;fine 95 address to 


El 


8028 


byte 32,32,32,32.32,32.32,69,32 


CO 


8286 


bcc dmvmem , 


no 




DK 


7848 


Idy $60 


. memory prg ptr. 


MO 


8030 


asc " stmts, funcs " 


IGO 


8288 


bne umvmem ; 


yes 



ThftTrarttocfor 



» 



V0lum*«,ls>uftO4 



00 


B29a 


Ida £24 




PC 


8292 


cmp $32 




BG 


32 94 


beq mvmS 


no move al all 


NA 


8296 


bcc dmvmem 


moving down 


OE 


8298 limvmem Ida rnvend 


mil indeji wifn 


KM 


8300 


sec 


parlial block 


EG 


3302 


sbc mvsirt 


to move 


PD 


8304 


tay 




ON 


8306 


Ida rnvend + 


tpush wi^oie blocks 


AH 


8308 


sbc mvstrl+l 


, to move 


CP 


8310 


p^a 




EE 


8312 


dc 


:sel up poinier 


GK 


8314 


adc mvsif 1 + 1 


; hjgh bytes 


DE 


8316 


s[a $23 




GA 


8318 


pla 




GP 


8320 


c^c 




CH 


8322 


adc mvdeslH- 


1 


BF 


3324 


sta $25 




NH 


8326 fnvm4 


Ida i$22).y 


: perform move 


HH 


8328 


sta (S24).y 


; from end of 


NP 


8330 


dey 


, block 


LL 


8332 


cpy #Sff 




AM 


8334 


brte mvm4 




FH 


8336 


Ida S23 


iiesl if hnished 


ND 


8338 


cmp mvstrl+ 1 




HO 


8340 


Deq mumS 


;ves 


HO 


8342 


dec $23 


;point 1 page lower 


CO 


8344 


dec $35 




DJ 


8346 


imp mvm4 


,move another Wock 


Nl 


8348 mvmS 


fIS 




ML 


8350 dmvmem Ida mvstrt + 1 ,seL up ptr 


JH 


8352 


sla S33 


, high bytes 


AK 


B354 


Ida mvdesi + 1 


BH 


8356 


sta £25 




EJ 


8350 


Ida mvend 


.in It counter with 


BO 


8360 


sec 


, part block size 


OF! 


8362 


sbc mvsiTt 




KA 


8364 


sia t2 




oo 


8366 


inc 12 




HL 


8368 


Ida rnvend + 


\.x counts whole 


KG 


8370 


sbc mvslrl + 1 


1 ; blocks 10 move 


JN 


8372 


Idy #0 


;init index 


Bl 


8374 


ta< 




LA 


8376 


beq mvm7 




IL 


8378 mvm6 


Ida ($32),y 


;move whole 


EP 


8380 


sla ($24). y 


; blocks, working 


MM 


6362 


my 


, upwards 


KP 


8384 


bne mvm6 




LG 


8386 


inc $33 




DH 


8388 


inc $25 




NH 


3390 


dejc 




CA 


3392 


bne mvm6 




GL 


8394 mvm7 


Ida {$32),v 


,move part block 


EN 


8396 


sla E$24j,v 




OK 


8398 


my 




CG 


8400 


cpy 12 




A6 


8402 


bne mvm7 




AM 


8404 


ris 




ME 


8406, 






GB 


8408 mvsirt 


wordO 


;memory move starl 


LL 


84lOmvdesi 


word 


; destination 


Kl 


84l2mvend 


wordO 


; . . ,end 


EF 


8414. 






HI 


8738 device 


byleS 


.current dish # 


EE 


9150erTpgm 


Idx $3a 


,test hi byte of 


EJ 


9152 


mx 


, 'curhn' = $tf 


Gl 


9154 


bne epgl 


,no 


AL 


9156 


ris 




CA 


9i58epgi 


jmp $af03 


/syntax error' 


OD 


9160, 







FE 
FH 
DH 
HH 
10 
JH 
NJ 
Jl 

CM 
NH 
HN 
DL 
Al 
LD 
CI 
KM 
LD 
NC 
EN 
GJ 
GD 
AO 
EH 
KP 
PJ 
Fl 

MH 
JL 
At 
IP 
HJ 
HF 
GO 
MH 
CB 
KJ 
PN 
PC 
GM 
PD 
OJ 
NJ 
BtsI 
EC 
JJ 
JG 
AL 
CI 
GD 
CO 

II 

KC 
KP 
AP 
OK 
KE 
LH 

BJ 
CH 

IL 

Gl 
JA 



Program 2: MOVE & FILL 

rem move & fill (June 1 8/85) : 

1 : 

2 rem 2 statements, functions 
3: 

4 rem keyword characters: 8 

5: 

6 rem keyword 

7 rem move 

8 rem fill 
9: 

10 rem u/mvmem (8250/120) 

11 rem u/memfil (8416/121 
12: 
13 rem -- = = = = = = - = = = = = = = 

14: 

133 .asc "movEfitL" 

1133 .wordmov-1,stuf-1 



routine 


Ifne 


ser# 


mov 


8174 


118 


stuf 


8504 


119 



8174 mov 

8176 

8178 

8180 

8182 

8184 

8186 

8188 

8190 

8192 

8194 

8196 

8198 

8200 

8202 

8204 

8206 

8208 

8210 

8212 

8214 

8216 

8218 

8220 

8222 

8224 

8226 

8228 

8230 mvcl 

8232 

8234 

8236 

8238 

8240 

8242 

8244 

8246 

8248; 

8250 mvmem 

8252 

8254 

8256 mvml 

8258; 

8260 mvm2 

8262 



$ad8a 
$b7f7 
mvstrt + 1 
mvstrt 
$79 



$73 

$ad8a 

$b7f7 



Saefd 
$ad8a 

mvdest + 1 
mvdest 



jsr 
jsr 

sta 

sty 

jsr 

pha 

jsr 

jsr 

jsr 

plia 

tya 

ptia 

jsr 

jsr 

sta 

sty 

pi a 

tay 

pi a 

tax 

pi a 

; 
beq mvcl 
six rnvend + 1 
sty rnvend 

#41 P 

, 

beq mvm2 

jmp SafOB 

cic 

tya 

adc mvsirt 

sla mvend 

Ixa 

adc mvslfl + 1 

sla mvend + 1 

bcc mvmem 

jmp $b248 

Ida mvend 
bne mvml 
dec mvend + 1 
dec mvend 

Ida mvstrt 
sta $22 



;eval and store 
; start address 



ipush separator 



;eval and push 
; 2nd parameter 



check tor comma 
evai and store 
destination addr 

;2nd parameter to 
; .x/.y 



test separator 

semicolon 

yes 

store end address 

test separator 
comma - move mem 

syntax error' 
add # of bytes to 

move to start 

address, store as 

end address 



;move memory 
;o'flow - 'Iq err' 

memory move front 
end - end addr 
is 1 beyond 
block to move 

;set up pointer 
i low bytes 



TTw Trarooctor 



20 



\tolume 6. Issue 04 





El 


8264 


Ida mvdest 


CA 


8392 


bne mvm6 






EB 


8266 


sta $24 


GL 


8394 mvm7 


da ($22),y 


;movepart bock 




NC 


8268 


Ida mvend + 1 


;testif any bytes 


EN 


8396 


sta ($24), y 






10 


8270 


cmp mvslrt+ 1 


; bytes to move 


OK 


8398 


iny 






BC 


8272 


bcc mvm5 


;no 


CG 


8400 


cpy t2 






i 


8274 


bne mvm3 


;yes 


AB 


8402 


bne rTivm7 






FD 


8276 


da mvend 


AM 


8404 


rts 






PD 


8278 


cmp mvsirt 


ME 1 


8406; 








JC 


8280 


bcc mvm5 ;no 


GB 


8408 mvstrt 


word 


;memory move start 




KO 


8282 mvm3 


Ida mvdest +■ 1 ;test moving up 


LL 


8410 mvdest 


word 


; . . destination 




HA 


8284 


cmpmvstrt+1 


Kl 


8412 mvend 


.word 


; . . .end 




CO 


8286 


bcc dmvmem ;no 


EF 


8414; 








GO 


8288 


bne umvmem ;yes 


FH 


8416memfi 


cc 


;start+bytesfag 




00 


8290 


Ida $24 


HA 


8418 


.byte $24 


;'bir 




PC , 

1 


8292 


cmp $22 


EA 


8420 memfl 


sec 


;start, end flag 




BG 


8294 


beq mvm5 ;no move at all 


PP 


8422 


sty t3 


[Store start addr 




NA 


8296 


bcc dmvmem ;moving down 


KE 


8424 


sta 14 






OE 


8298 umvmem 


; Ida mvend ;init index with 


PG 


8426 


bcc memf3 


;skip cafe 




KM 


8300 


sec ; partial block 


NJ 


: 8428 memf2 


Ida $14 


:calc bytes to fi 




EG 


8302 


sbc mvstrt ; to move 


. PM 


8430 


sbc t3 


; - end minus start 




PD 


8304 


tay 


1 IL 


8432 


sta $14 






ON 


8306 


da mvend + 1 ;push who e b ocks 


PH 


8434 


da $15 






AH 


8308 


sbc mvstrt + 1 ; to move 


IC 


8436 


sbc t4 






OP 


8310 


Dha 


BM 


8438 


sta $15 






EE 


8312 


cic ;set up pointer 


KH 


. 8440 


bcc memf7 


;end < start 




GK 


8314 


adc mvstrt+1 ; high bytes 


.MB 


8442 


mc $14 


;bunip bytes to til 




DE 


8316 


sta $23 


H 


8444 


bne memfS 






GA 


8318 


pa 


LK 


, 8446 


mc $15 






GP 


8320 


cIc 


LC 


! 8448memf3 


da $14 


;testfi! area 




CH 


8322 


adc mvdest + 1 


GL 


1 

8450 


CiC 


; in memory 




BF 


8324 


sta $25 


IB 


8452 


adc t3 






NH 


8326 mvm4 


Ida ($22),y 


.perform move 


FN 


8454 


tay 






HH 


8328 


sta ($24),y 


: from end of 


FJ 


8456 


Ida $15 






NP 


8330 


dey 


; block 


AC 


8458 


adc t4 






LL 


8332 


cpy #$ff 


HP 


8460 


bcc niemf4 


;yes 




AM 


8334 


bne mvm4 


KD 


8462 


bne memtS 


;no 




FH 


8336 


da $23 ;test if finished 


HM 


8464 


tya 




1 


ND 


8338 


cmp mvstrt + 1 


OD 


8466 


bne memf8 


;no 


i 


HO 


8340 


beq mvm5 ;yes 


EA 


8468 memf4 


Ixa 


;get ft I character 




HO 


8342 


dec $23 :point1 page lower 


LD 


8470 


Idy ffO 


;init index 




CO 


8344 


dec $25 


CA 


8472 


Idx $15 


;# bocks to fill 




DJ 


8346 


jmp mvm4 ;move another block 


GK 


8474 


beq mem 16 


;none 




Nl 


8348 mvmS 


rts 


NC 


8476 memfS 


sta (t3),y 


;fill a Wock 




ML 


8350 dmvmem 


1 Ida mvstrt+1 ;setupptr 


OP 


8478 


iny 






JH 


8352 


sta $23 ; high bytes 


NK 


8480 


bne memf5 






AK 


8354 


Ida mvdest +1 


GG 


8482 


inc t4 






BH 


8356 


sta $25 


CH 


8484 


dex 


;test more to fill 




EJ 


8358 


Ida mvend ;init counter with 


LJ 


8486 


bne memfS 


;yes 




BO 


8360 


sec ; part block size 


CI 


8488 memf6 


cpy $14 


;# bytes to fill 




OF 


8362 


sbc mvstrt 


HL 


8490 


3eq mernf? 


;none 




KA 


8364 


sta t2 


DF 


8492 


sta (t3),y 


:fill a byte 




00 


8366 


inc 12 


OA 


8494 


iny 






HL 


8368 


da mvend + 1 ;.x counts whole 


OL 


8496 


bne memf6 






KG 


8370 


sbc mvstrt + 1 ; blocks to move 


MB 


8498 memf7 


rts 






JN 


8372 


Idy #0 ;init index 


FP 


8500 memfS 


mp $b248 


;'il1egal qty" 




Bl 


8374 


tax 


MK 


8502; 








LA 


8376 


beq mvm7 


GH 


8504 Stuf 


jsr $ad8a 


;push start address 




, "- 


8378 mvm6 


Ida {$22),y 


move whole 


LK 


8506 


jsr $b7!7 






Iep 


8380 


sta ($24),y 


blocks, working 


L 


8508 


ptia 






MM 


8382 


iny 


upwards 


FP 


8510 


tya 






KP 


i 8384 


bne mvm6 


ML 


8512 


pha 






LG 


8386 


inc $23 


MC 


8514 


jsr $79 


; push separator 




DH 


1 8388 

1 


inc $25 


AM 


8516 


pha 






NH 


' 8390 


dex 


FJ 


8518 


jsr $73 


;eva 2nd parameter 




IhaTNHitaclor 


21 






\fo(uin96,luue04 



AL 


8520 isr $ad8a 


BF 


8574 


Ida $ba 


_ 


LL 


8522 jsr $b7f7 


JO 


8576 


jsr $ffb4 ; send talk device 


HH 


8524 isr $79 ; 


test for 3rd param 


ND 


8578 


Ida $b9 


JIB ri 


EM 


8526 beq slufl ; 


no 


BC 


8580 


jsr $1196 ;sendtakscnory 


CE 


8528 jsr Saefd ; 


.check for comma 


DK 


8582 


dy #$ff 




FK 


8530 jsr $b79e 


,get fill cliaracter 


HG 


8584 dss2 


iny 




1 


8532 ,byte$2c 


/bit' 


CE 


8586 


jsr $ffa5 ;( 


get from disk 


DC 


8534stuf1 Idx #0 


;f i 1 with 


ML 


8588 


sta dsbuf.y ; 


and put into 


AJ 


8536 pla 


iseparatorto .y 


HD 


8590 


cmp #$0d ; 


buffer until 


FH 


8538 tay 


;start address to 


EC 


8592 


bne dss2 ; 


a return 


1 ■ ■ 

AN 


8540 pla 


i t3/t4 


PA 


8594 


jsr $f642 ;i 


jntalk device 


OL 


8542 sta t3 


Al 


8596 


rts 




10 


8544 pla 


PN 


8598 dss 


jsr dssi ;! 


get disk message 


EM 


8546 Sta t4 


RE 


8600 


tya 




D 


8548 cpy ff" ," 


; comma separator 


D 


8602 


jsr $b47d ;( 


::reate space 


FF 


8550 beq memf2 


;fill 


LG 


8604 


tay 




F 1 

DM 


8552 cpy #';' 


;semicolon sep'r 


Al 


8606 dss3 


Ida dsbuf,y ;i 


from buff 


KF 


^^ 1 ^ 

8554 beq memf3 


;till 


LD 


8608 


sta ($62),y ;to memory 


BO 


8556 imp $af03 


;'syntax error' 


NF 


8610 


dey 




EO 


J 1 

8558 ' 


HP 


8612 


bp dss3 




1 ^—r^ 


^^ ^w" ^T* ^— ' p 


NO 


8614 


jmp $b4ca ;■ 


clean desc stack 








08 


8616; 






Program 3: DOS SUPPORT 


FO 


861 8 dsn 


jsr dssi 




V 


LL 


8620 


Idx dsbuf ; 


first digit (1 Os) 


HJ 
FH 


rem dos support {d. spruyt, 1985) : 

1 - 


BN 
IG 


8622 
8624 


da dsbuf + 1 ; 
and #$0f ; 


second digit 
ascii to hex 


1 F P 

CI 


r 4 

2 rem 5 statements, 2 iunctions 


EB 


8626 dsn 1 


cpx #"0" ; 


add 10s 


HH 


3: 


HO 


8628 


beq dsn 2 




F ' ■ ■ 

LJ 


4 rem keyword chars: 24 


NG 


8630 


dex 




JH 


5' 


HK 


8632 


adc #9 




V ■ ■ 

NJ 


6 rem keyword routine line ser # 


LK 


8634 


bcc dsnl 




KF 


7 rem s/cat kat 8644 123 


HL '■ 


8636 dsn2 


tay ; 


convert to 


JB 


8 rem s/dos comms 8742 124 


CO 


8638 


Ida m ; 


floating point 


OE 


9 rem s/dev dvc 8766 125 


II 


8640 


jmp usfp 




JL 


1 rem s/d oad d d 8808 1 26 


ID 


8642; 






KC 


11 rems/dsave dsve 8814 127 


JF 


8644 kat 


Ida device ; 


catalog f'n 


PM 


12remf/ds$ dss 8598 128 


JM 


8646 


sta $ba ; 


set device 


DP 


13remf/ds dsn 8618 129 


NP 


8648 


Ida #$60 




CI 


14 . 


MH 


8650 


sta $b9 ; 


;set sncdary 


BF 


15 rem u/usfp (2620/006) 


JL 


8652 


da #1 

■ J J ■ 1 b ri 




El 


16: 


CB 


8654 


Idy #>dollar 




^^^ F 

PD 


^fT 


EB 


8656 


Idx #<do1ar 




Gl 


18- 


AP 


8658 


jsr $ffbd 


iset string 


MP 


134 asc "caTdoSdeV" 


HB 


8660 


jsr $t3d5 


;sendsa + string 


JB 


135 asc "doaOdsavE" 


JK 


8662 


Ida $ba 




HM 


620. asc '■ds":.byte$a4:.asc "dS" 


AM 


8664 


jsr $ffb4 


;send ta k 


HH 


1134 word kat- l.comms-l.dvC'l 


FJ 


8666 


Ida $b9 




MJ 


1135 .worddd-1.dsve-1 


HH 


8668 


jsr $ff96 


;send talk sa 


LN 


1 620. word dss-1.dsn-1 


JM 


8670 


Ida #0 




IB 


2620 usfp Idx #0 ; routine to convert 


KG 


8672 


sta $90 


; clear st 


GM 


2622 stx $0d ; unsigned integer 


ND 


8674 


jsr $ffa5 


;discard load add 


N 


2624 sta $62 ; in a (high byte) 


EH 


8676 


jsr $ffa5 




OH 


2626 sty $63 ; and y (low byte) 


EM 


8678 kati 


sr $ffa5 


;discard inelink 


BB 


2628 Idx #$90 ; lo floating point 


IH 


8680 


jsr $ffa5 




FJ 


2630 sec ; jnfpa#1 


AP 


8682 


dx $90 


;tesl status 


NH 


2632 jmp $bc49 


PA 


8684 


bne I<at2 


;end of f i e 


AM 


2634. 


MG 


8686 


tax 


jtestlinkhi 


HJ 


8560 dss1 Ida device 


CB 


8688 


bne kat3 


; not end 


FH 


8562 sla $ba ;set device 


Jl 


8690 kat2 


jsr $J642 


;untalk 


BA 


8564 Ida #$6i 


GD 


8692 


jmp $aad7 


iprint<cr>, exit 


OP 


8566 sta $b9 ; set secondary 


OF 


8694 kat3 


jsr $aad7 


;print<cr> 

J J L ri I ^ 


DG 


8568 da #0 


KM 


8696 


jsr $ffa5 


;get line # 


OJ 


8570 sta $b7 ;filename ength 


JK 


8698 


sta t2 


i (file size) 


JN 


8572 jsr chpres ;chkdev present 


Ml 1 8700 


jsr $ffa5 


^ ^ — 


TiMltamactor 


a: 


t 




Volunne6,lftsu«04 





KH 


8702 


Idx t2 




C 


! 8830 Ida $90 


; test status 




CF 


8704 


jsr $bdcd 


; print it 


LB 


8832 bne chpl 


:bad 




BJ 


8706 


jsr $ab3f 


; print space 


GG 


8834 rts 






AL 


8708 kat4 


jsr $ffa5 


;get next char 


JO 


8836 chpl Idx #5 


;'dev not present" 




AP 


8710 


Idx $90 




i Ml 


1 8838 jmp ($300) 






KO 


8712 


bne kat2 


;check st 


OP 


' 8840 ; 




1 

1 


AL 


8714 


jsr $ffd2 


; print char 


GF 


8842dsbuf * = * + $24 


;dlsk msg buffer 


1 


EK 
OP 


8716 
8718 


bne kat4 
jsr $ffe1 


;notend of ine 
;test stop key 


CA 


8844; 










LO 


8720 


beq kat2 


;yes - end 








MH 


8722 


jsr $tfe4 


;getin 


Program 4: LINE CALC 




LD 


1 

'■ 8724 


beq kati 
jsr $ffe1 


;no keypress 
;test stop key 








EG 


8726 kat5 


NA 


Orem ine calc (7/85) 






IE 


8728 


beq kat2 


;yes 


FH 


1 : 






E 


8730 


jsr $ffe4 


;getin 


KG 


2 rem 2 statements, 1 func 


lion 




DF 


8732 


beq kat5 


;no keypress 


HH 


. 3: 






FD 


8734 


bne kati 


;yes 


HE 


4 rem keyword characters: 


13 




FB 


8736 dollar 


.byte ■■$' 




JH 


'■■ 5; 






DG 


8738 device 


. byte 8 




NJ 


6 rem keyword routine 


line ser# 




KJ 


8740; 






JE 


7 rem s/jump jum 


8846 1 30 




OB 


8742 comms 


; jsr $ad9e 


,eval exp 


MM 


1 8 rem s/ca 1 cal 


8870 131 




HB 


8744 


jsr $b6a3 


;clrdesc + check str 


JH 


9 rem f/line( ine 


8902 1 32 




AJ 


8746 


sta $b7 


;save length 


GH 


10: 






CM 


8748 


sty $bc 


;save pntr to it 


NE 


■ 1 1 rem u/usfp (2620/006) 






OJ 


8750 


stx $bb 




Al 


. 12: 






JF 


8752 


da device 




LD 


1 ^J rj^n^ _.. «. ^ 




1 O r Gm ==:^^?:= = = =^==:==^=^- 






FD 


8754 


sta Sba 


;set device 


CI 


14: 






BM 


8756 


Ida #$61 




EN 


136 .asc "jumPcaL- 






OL 


8758 


sla $b9 


;se1 secondary 


IL 


621 .asc "line'^ .byte$a8 






FJ 


8760 


jsr chpres 


;ohk dev present 


HN 


1136 word |um-1,cal-1 






DG 


8762 


jmp $f3d5 


;send sa + string 


DJ 


1621 word ine-1 






CL 


8764; 






IB 


2620 usfp Idx #0 


;routine to convert 




FO 


8766 dvc 


jsr $b79e 


;get param 


GIVI 


2622 stx $0d 


;unsigned integer 




BB 


8768 


cpx #8 


;test 8- 1 1 


N 


2624 sta $62 


;in .a {high byte) 




AG 


8770 


bcc dvc2 


;no 


GH 


2626 sty $63 


;and .y (low byte) 




BC 


8772 


cpx #$0c 




BB 


2628 Idx #$90 


;to f oating point 




EC 


8774 


bcs dvc2 


;no 


FJ 


2630 sec 


;intpa^1 




ML 


8776 


stx device 


;set device # 


NH 


2632 jmp $bc49 






NP 


8778 dvcl 


rts 




AM 


2634; 






DJ 


8780 dvc2 


jmp $b248 


;illegal qty 


IP 


8846 jum jsr $b08b 


;find variab e 




EM 


8782; 






HE 


8848 bit $0e 


;test integer type 




DB 


8784 name 


da #0 




Fl ' 


8850 bpl jml 


;no 




KN 


8786 


sta $b9 


;set secondary 


AH 


8852 Idy #0 


;getline# lo byte 




PA 


8788 


sta $0a 


;set load flag 


GH 


8854 Ida ($47), y 






DM 


8790 


jsr $e257 


;eva string to mem 


Jl 


8856 sta $60 


jsetupfor goto' 




B 


8792 


Ida device 




NM 


8858 iny 


;get line # hi byte 




NF 


8794 


sta Sba 


;set device 


IH 


8860 da ($47), y 






PK 


8796 


isr $79 


;get char 


PB 


8862 sec 






KP 


8798 


beq dvcl 


:end of statement 


EE 


8864 jmp $a8c7 


;enter 'goto' rtn 




BG 


8800 


jsr $aefd 


;chk for comma 


GH 


8866 jml jmp $ad99 


;Vartyp mismatch' 




EM 


, 8802 


jsr $b79e 


;get device number 


KB 


8868: 






CJ 


: 8804 


jmp Selec 


;handle setup 


IP 


8870 ca fda #3 


;lest stack depth 




MN 


! 8806 ; 






GB 


8872 jsr $a3fb 






FD 


8808 did 


jsr name 


; check string 


EK 


8874 da $7b 


;push chrget ptr 




DL 


8810 


imp $el6f 


;load 


C 


8876 pha 






CO 


8812; 






LG 


8878 Ida $7a 






FO 


8814 dsve 


jsr name 


; check string 


MC 


8880 pha 






K 


8816 


jmp $e159 


, oad 


FG 


8882 Ida $3a 


;push fine# 




10 


8818; 






AD 


8884 pha 






BG 


8820 chpres 


Ida #0 


; clear status 


DF 


8886 Ida $39 






CE 


8822 


sta $90 




ED 


8888 pha 






GE 


8824 


Ida $ba 


; isten 


Fl 


8890 Ida #$8d 


;push 'gosub' token 




KA 


8826 


jsr $ffb1 




ID 


8892 pha 






IN 


8828 


jsr Sffae 


;unlisten 


IG 


8894 jsr $79 


:enter 'goto' rtn 


nteltanxKlor 
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^MufYw6,luu904 



AH 

AN 

KD 

LJ 

Nl 

KM 

DE 

MD 

NL 

JO 

BK 

CF 

AK 

OF 

EG 

KF 

AB 

OG 

AD 

PK 

HE 

BP 

BG 

KC 

CK 

Al 



8896 

8898 

8900; 

8902 line 

8904 

8906 

8908 linel 

8910 

8912 

8914 

8916 

8918 

8920 

8922 

8924 

8926 

8928 

8930 

8932 

8934 

8936 

8938 

8940 

8942 

8944 Iine2 

8946 



jsr jum 
jmp $a7ae 

cmp #$89 
bne IJnel 

jsr $73 



KL ] 8948 



OH 


8950 


OP 


8952 


CI 


8954 


HM 


8956 


Gl 


8958 


M ' 


8960 


GD 


8962 


KM 


8964; 



Ida 

jsr 

Ida 

pha 

Ida 

pha 

Ida 

pha 

Ida 

pha 

jsr 

|Sr 

Ida 

sta 

jsr 

bcc 

Idy 

Ida 

jsr 

pla 

sta 

pla 

sta 

pla 

sta 

pla 

Sta 

jmp 



#2 

$a3fb 

$14 

$15 

$5f 

$60 

$ad8a 
$b7f7 

$61 

$a6 13 

Iine2 

$5t 

$60 

usfp 

$60 

$5f 

$15 

$14 
$sef7 



;begin subroutine 

;skipgoto token 
; if present 

.check stack depth 

save current 
values of 
affected memory 



;evaMfne#expr 
;convto integer 
;zero fac 1 

find fine address 
undet'd statement 
convert to 

floating point 

in fac ^1 
restore memory 



icheck close paren 



Programs: BEEP 



CG 


rem beep 


(sept 1 /85) 




FH 


1 : 






Al 


2 rem 1 statement, functions 


HH 


3: 






EO 


4 rem keyword characters: 4 




JH 


5: 






NJ 


6 rem keyword routine 


me ser # 


EN 


7 rem s/beep bee 


8966 133 


MH 
00 

OH 


8: 






y reTTi = = ^-' 
10: 






ML 


137 asc "beeP" 




KE 


1137 wordbee-l 




FK 


8966 bee 


beq bpl 


;no parameters 


NO 


8968 


jsr $b79e 


;eva duration 


PP 


8970 


inx 


;bump duration 


AE 


8972 


.byte$2c 


:'bit' 


LI 


8974 bpl 


Idx y^i 


;default duration 


JA 


8976 


txa 


;push duration 


01 


8978 


pha 




FN 


8980 


Idx #$21 


i default pitch 


MM 


8982 


tdy #$87 




FP 


8984 


(sr ^79 


;test pitch param 


BA 


8986 


beq bp2 


;no 


OA 


8988 


jsr $aefd 


;checkfof comma 



BB 


8990 


|sr 


$ad8a 


MK 


8992 


sr 


$b7f7 


NO 


8994 


tax 




00 


8996 bp2 


sty 


$d4ae 


GH 


8998 


stx 


£d40f 


IN 


9000 


Idx 


#0 


FL 


9002 


stx 


$d413 


BH 


9004 


stx 


$d417 


MH 


9006 


Ida 


#$fO 


GB 


1 9008 


sta 


$d414 


G 


9010 


da 


#$0f 


OB 


9012 


sta 


$d418 


AO 


9014 


Ida 


#$21 


MB 


9016 


sta 


$d412 


PO 


9018 


pa 




NL 


9020 


sec 




HA 


9022 bp3 


dy 


#8 


KF 


9024 bp4 


dex 




CE 


9026 


bne 


bp4 


PP 


9028 


dey 




GE 


9030 


bne bp4 


FE 


9032 


sbc 


#1 


HE 


9034 


bne 


bp3 


OB 


9036 


Ida 


#$20 


CD 


9038 


sta 


$d412 


MD 


9040 


rts 




IM 


9042; 







IM 

PL 

GA 

ON 

NL 

IN 

EH 

GO 

BC 

KO 

CK 

OL 

AP 

CB 

EM 

IH 

AE 

LB 

Fl 

JG 

AA 

U 

EA 

LI 

JL 

KG 

IJ 

OA 
BO 
Ml 
ON 
HE 



;eval pitch 
;conv to integer 

;write pitch to sid 

; clear attack/decay 
; and filter select 

;sustain 15, rel 

;volume 15 

;gate on (sawtooth) 

;pull duration 

;countdown duration 



;gate off 



100 
102 
104 
106 
108 
110 
112 
114 
116 



118 

120 

122 

124 

126 

128 

130 

132 

134 

136 

138 

140 

142 

144 

146 

148 

150 

152 

154 

156 

158 

160 

162 



Program 6: Stripper 

rem stripper 

rem remove comments from 

rem pal source code 

tori = 900toi + 20 
read a. poke i,a 
next 

u$="' '''''' ' ]":q$ = chr$(34) 
Note: u$ = (1 apostrophe + 1 space) x 8 



+ 1] 



print "keyGH(149),'\q$;"s/^-]//"i 
print q$;":clr" 



fori=150to153 

print:prinl 

v$-mid$(str$(i),2) 

pnnt ■'keycH(";v$;"'),";q$; 

pnnt "s/";right${u$,2T{154- 

print "//"iq£;":clr" 

next I 



i> + 1): 



print " 



qqq 



ise sys 900 " 



fori=1 to 19: print "H"- ^^^^ 
fori = 631 to 635: poke 03: next 
poke 198,5 
end 

r 

data 160, 10,162,153,132,198 
data 169, 13,136,153,119, 2 
data138.202, 136, 153, 119, 2 
data 16,242, 96 



TbeTronsactM 
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Sky Travel 

Richard Evers, Editor 



A Review 



''Genius is the ability to reduce the complicated to the simple. " - C VK Ceram 



The above statement must have been made with Frank Covilz 
and Clif Ashcraft (authors of Sky Travel) in mind. Never before 
have I been this impressed with any software package. Just 
thinking about the task involved in writing this magnificent 
piece of code leaves me in a panic. Most major software 
applications are difficult to write, but Sky Travel must have 
been close to impossible. And the trick is, Sky Travel makes it 
all look so easy. Beautiful!! 

Before continuing with my Sky Travel review, a little story is in 
order. 

The James Mitchener Story 

For the past nine years, James Mitchener has been my favour- 
ite novelist. Although his writing style has given pleasure to 
millions, a greater number have yet to discover his talent. W the 
titles Hawaii, Tales of the South Pacific, The Source, Centen- 
nial, The Covenant, and Space fail to ring a familiar bell, then 
prepare for an awakening. These are but a few of the novels 
James Mitchener has written, written for the sole purpose of 
giving literary pleasure and knowledge to all. Although his 
writing style tends to be tedious and drawn out at the beginning 
of each novel, rest assured that he is only laying the correct 
ground work for the balance of the novel, and will soon have 
you entranced in his literary spelL You will become one with 
the story, you will be drawn into the settings, the people, and 
the history as it progresses. You will be able to climb inside of 
Mr. Mitchener s mind, and absorb all that he offers. His novels 
are always extremely well researched, with a presentation 
surpassed by tew. Knowledge and pleasure. Who could ask for 
more? 

The reason why I have skirted the main subject and Introduced 
you to James Mitchener is because of the novel Space. This 
novel was for me the starting point in my Astronomical learn- 
ing process- Before Space, I had little interest in Astronomy, nor 
felt any need for it. Thanks to James Mitchener's talent, I was 
given a basic understanding of Astronomy, in a manner that 
was pleasant to digest. And thanks to the two years he spent 
working at NASA, an insight was also supplied regarding the 
complexities involved with space travel, and the steps taken to 
solve the problems encountered. As a final salute, if you 
haven't read any of his novels, start with Space. You will not be 
disappointed. 



Back To Sky Travel 

The manual supplied with Sky Travel is probably one of the 
finest quick Astronomical tutorials you will ever read. Along 
with learning how to use the program, you will also be given 
many important Astronomical facts, plus just enough trivia to 
keep you intrigued. Front to back, the manual is a delight. 
Through its reading, you will learn about Longitude and Lati- 
tude, Declination and Right-Ascention (same as Longitude and 
Latitude but for space), and the Time Zones. Further to that you 
will realize why leap years exist; each year is comprised of 
365-2422 days! Due to this fact, you will learn about the 
multitude of calendar systems used throughout the ages. One 
of the great pains in writing this system must have been in 
compensating for the calendar changes. 

To further brighten my day while reading the manual, 1 found 
the term 'precession'. This is a term used to describe the slight 
wobble the earth experiences about its axis. This fact was 
presented to me while researching the translation and interpre- 
tation of the writings of Michael Nostradamus, in particular 
those pertaining to the ''final war to end all wars in the year 
1999", Through my research, I was able to disprove the 1999 
theory entirely. As a bonus, I also found out about precession. 
This slight wobbling effect has led to some strange changes, 
from our viewpoint, in the cosmos. For example, everybody 
knows of Polaris, the North Star. It's the first star in the Little 
Dipper. Well, due to this wobble, Polaris has not always been 
the North Star, nor will it continue to be in the future. Also, the 
signs of the Zodiac are all slightly out of phase due to preces- 
sion. This known factor has never been incorporated into the 
'science' of Astrology, therefore, the sign you were born under 
may not be your sign! 

A Birthday!! 

To continue, another interesting fact derived from the Sky 
Travel manual is that Jesus Christ was born on September 1 5 in 
the year 7 BC. Now this is a miracle!! Born seven years before 
conception!! 

As history goes, a monk in the 6th century AD put forth the 
idea to date the calendar from Jesus's birth, which was calcu- 
lated to be in the year 754 A.U.C, (Read the manual to figure 
that one out.) This change was instantly accepted by Rome, but 
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it look another five centuries for the rest of the world to 
conform. Don't you love good trivia? 

The date of September 15 in 7 BC was calculated after consider- 
ing thai King Herod died in the year 4 BC, before the recorded 
birth. From that point, calculations were made to find the Star 
of Bethlehem, as it became known. Without dragging the point 
loo far, the only occurence that could have led to such a bright 
^Star could have been the alignment of the Stars Saturn and 
Jupiter on the night of September 1 5lh in 7 BC. If the Christian 
religions follow known astronomical calculations, then this fact 
is correct. If the 'Slar^ was a special birthday present from the 
powers above, then who really knows? December 25th seems 
like a pretty good day for Christmas, 

Without going on forever, the manual is great, and could sell as 
a stand alone item. But, overshadowing the manual comes a 
terrific program, Sky Travel- 



Sky Travel: The Program 

You will find, when first firing the system up. that more than a 
few options present themselves. Through Sky Travel, you can 
synthetically locate yourself accurately anywhere on Earth, at 
anytime, any date, in any year, in the past or future by 10,000 
years. From this point, you can view the cosmos as you please. 
You can stop time and just sit and view. You can advance the 
rate oE time by up to a factor of 64. forwards or backwards, And 
you can change your screen viewing angle from 72 degrees 
down to 9 degrees. 

The display options given are pretty impressive, as shown 
below: 

Lines : Shows principal constellation lines when enabled 
Names : Places abbreviations of the names of the constella- 
tions shown, next to the constellations when en- 
abled, 

+ 

Symbols : Will display the commonly used symbols relating to 
each planet, next to the planets displayed when 
enabled. 

Deep Sky: Displays the distant deep space nebula and galaxies 
along with the normal display of our own galaxy 
when enabled. 

Track : Allows tracking ot the Sun, f^oon, the planets, or 
Halleys Comet when enabled. Tracking means that 
it will follow the desired object along its path as long 
as it is observable. 

Sound iWith Sound on, your cross-hairs (cursor) will be 
turned into a space ship on the screen, with sound 
effects thrown in for good measure. When in Map 
mode (setting your location on Eartli), you will have 
an airplane instead of the normal cross-hairs, along 
with sound effects. This was implemented to en- 
courage children to use the system. 



A Few More Nice Touches 

To move ahead, you also have a Find function that lets you 
rapidly find the Moon, Sun, any of the planets, any comet that 
might happen to be around, or any constellation available that 
appeals to you, A nice touch. As fascinating as the Find 
function is the Inform function. All you do is line your cross- 
hairs up to any object on display, then press the Inform 
function key. From disk will come a quick synopsis of up to 
date data regarding the chosen object. 
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As for the actual mode of display, two modes exist. They are 
Sky and Chart, In Sky mode you can use the cursor keys, plus 
assorted other special keys. \o move about the screen, and 
cause 'Skewing' into new areas of view. As you move the 
cross-hairs to indicate viewing beyond the edge of the screen, 
the computer skews the display to reflect this change. As you 
move the cross-hairs on the screen, you will notice that the 
Elevation, Azimuth, Right Ascention, and Declination given 
on the screen are updated accordingly. And, if you require a 
print out of the display shown, a (Shift) (pj will do the trick for 
any serial printer. Unit *4, on line- 
in Chart mode you will notice that your display is a reverse of 
what you see in Sky mode. This mode is best used when 
printing out high resolution displays to your printer for plot- 
ting purposes. The dark objects on a white background will 
save your ribbon in relation to the reverse. In comparison, 
other than the reverse image and the fact that you can no 
longer skew beyond the edges of display, the Chart and Sky 
mode appear identical. 




A Beef 

Sky Travel is an incredible program, butstiil, I found one thing 
to beef about; the disk protection used. The read errors 
encountered during system initialization cause one heck of a 
lot of head banging. Not such a nice thing to hear just after 
getting my drive aligned!! In case you Ye interested, you can 
turn off the I54rs head bumping trick by executing the 
following code before loading in the program- 
open 15.8,15: prinl#1 5, "m-w"chr$(1 06) 
chr$(0)chr${1)chr$(133): close 15 

This sets bit 7 at location 1 06, REVCNT, tested by DOS witfi 
a BIT command when an error is encountered on disk. If the 
negation flag is set after the BIT, the code bypasses the 
head bump routine, therefore bringing instant relief to all 
service technicians, 



The David Dunlop Observatory 

Just after starting to write this review. I had the opportunity to 
visit the University of Toronto's David Dunlop Observatory in 
Richmond Hill, with my brother John. Both John and ( are 
budding junior astronomers, and therefore we were both ex- 
cited about the prospect of visiting the observatory. Although 
we grew up in the Hill, and I currently live in the Hill with my 
wife and daughter it never occurred to us to take the time to 
visit the observatory. One phone call and a free lecture, tour, 
and peek up the scope was our reward. 

Actually, we never got that peek up the scope that night. It was 
our luck to pick a night when the sky completely emptied on 
Richmond Hill, Monsoon season or something. Anyway, the 
facilities are pretty good, the lecture was informative, and the 
telescope, although 52 years old, has plenty of life left in her. 
Weighing in at 30 tons, this telescope looks quite impressive. If 
only we could have seen something through it. 

During that night, we talked with a few people working at the 
observatory, and found that nobody was using Commodore 
equipment. But, once described to them, everyone seemed 
quite excited about the possibilities available with the package 
Sky Travel. Note To Commodore: Give the U of Ts Faculty of 
Astronomy acalL Good chance of snowballing some sales, with 
the right approach. 

In Summation 

As you can guess, I feel that the program is Al. It is so well 
designed, and appeals to such a specific market, that it must 
have been written as a labour of love, 1 just hope that this 
review will convince you that Astronomy can be as exciting as 
you make it. With Sky Travel at your side, the universe is 
within your reach. 

"Sky Travel" or "Shy Travel"? 

As bnVtant as Sky Trouel ts, iiioo is not immune to the perils of the 
software realm. You may find it difficult to find Sky Travel. The 
package is a Commodore product but it appears once more thai 
Commodore has made a retreat from the sofltvare front. Many 
retailers have trimmed their inventories down to the "big movers " 
and hove become fearful of "new dust catchers to add to their 
collection^'. But it would seem unlikely that the number of Sky 
Trooels sold matches a typical minimum production run. For those 
determined enough. Commodore could probably point you to- 
wards one - they must be out there, but where? Perhaps the 'Find' 
command will help. We 'II try it and let you know. 

The latest development in the Sky Travel story is Planet Travel. 
Talk about stunning. When complete, this program will be the 
"Flight Simulator" of space travel A demonstrolion sampler shows 
Saturn from several perspectives with the stars, sun, shadows, 
moons, all accurately plotted. I suspect they'll be two seperate 
items, though. Sky Travel already fills most of the disk so don 't wait 
- you'll probably need both to "get it all". -M.Ed 
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Accurate Sum Of Squares 



John Jay Hilf iger 

Ithaca, NY 



Another technique for avoiding wrong answers 



John Joy Hilfiger is Manager of the Statistical Computing Department ot Cornell University. Rest assured 
the following is not merely another re-hash of the binary arithmetic problem but rather an approach for 
dealing with it. - M. Ed 



Your Commodore computer can do difficuU numerical analyses 
with amazing speed, and is a very handy too) for this reason. 
You may have come to rely on your computer for important 
calculations, but sometimes those calculations may be very 
wrong! This happens because computers can only approximate 
some numbers. The BASIC interpreter on eight bit computers 
like the Commodore 64 and VIC-20 represents most numbers 
as nine digit approximations. This may seem like more than 
enough precision, and it usually is. but there are times when it 
gets us into trouble. Does this mean that small computers are 
not for serious calculations? Alas, even the biggest computers 
have limitations, but choosing the right algorithms and careful 
programming can help us to get around many of those limita- 
tions. 

Many problems in statistics and other branches of science 
require finding the sum of the squares of a group of numbers. 

X(x-x)^ 

where x is any number and x is the average. This is simply 
the total of the squared differences between each number 
and the average of all of them. Consider the numbers 0, 1 , 
2. Their average or "mean" isl and the sum of the squares 
is 2, Program 1 finds the mean and sum of squares of this 
set. 

Program 1 makes two passes through the data, that is, it 
reads all of the data twice- There Is nothing wrong with this, 
but if we had a lot of data, Program 1 would be very slow. 

Many textbooks that were written with hand or calculator 
computation in mind suggest the following algebraically 
equivalent method of finding sums of squares, requiring 
only one pass through the data: 

Yx^ - (Ix)'/n 



where n is the number of numbers in the data set. This formula 
is often used by programmers of statistical software because it is 
much faster than the two pass method and because they are 
unaware of the inherent dangers. Methods designed for hand 
calculation are not necessarily the best methods for computers 
to use. Program 2 implements this formula, which we shall 
refer to as the "calculator algorithm". 

Either Program 1 or Program 2 gives the rights answers for the 
simple data set 0,1.2. Let us try a more difficult set of numbers, 
30000, 30001 , 30002. The mean of this data set is 30001 and 
the sum of squares is, once again. 2. Change the last line of 
each program to: 

500 data 30000, 30001 , 30002 

and RUN each of them. Program 1 gives correct answers but 
Program 2 gives 1.75 for the sum of squares. Things get even 
worse if we try the data set lOOOOO, 100001, 100002. The sum 
of the squares is still 2. Once again, Program 1 gives correct 
answers, but Program 2 is way off with a sum of squares of 8! 

We have seen that the calculator algorithm used in Program 2 
works well when the data consists of small values, but as the 
data values get larger, the results get progressively worse. This 
happens because intermediate values X2 in line 140 and T2 in 
line 170 are very large and cannot be represented exactly by 
the computer, so they are rounded off. One rounded number is 
subtracted from another rounded number in line 180 for the 
final wrong answer. You may protest that numbers like those 
used in the examples here are not likely to come up in ordinary 
problems. This may be true, but with larger data sets, i.e. many 
more than three data values, the same kinds of rounding errors 
can occur when much smaller values are processed. In other 
words, a tiny set of large numbers serves as a proxy for a more 
realistic data set. 
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There is a third kind of a gorithm we can use that is faster than 




Program 1 




Ihe two pass method and also very accurate. This method is 
called an "updating a gorithm". The idea is to read through the 




100 rem tvt/o-pass agorthm 




NC 


data only once, but each time a dala value is read, the mean 


CK 


110t-0:s-0 




and sum of squares of a data values up to the most recent one. 


KD 


120 rem find mean 




are computed. There are actually several different updating 


JD 


130fori = 1 to 3 




algorithms. One of them is implemented in Program 3. f you 


CK 


1 40 read x 




try running Program 3 with each of the sample data sets given 


OP 


150t-t+x 




above, you wil find that all the answers are correct. The 


PH 


160 next i 




updating algorithm offers both speed and accuracy and is the 


NL 


170m=t/3 




method used by many sophisticated scientific packages on 


MM 


1 80 restore 




mainframe computers. 


PO 


190 rem find sum o squares 






PH 


200 for i = 1 to 3 




This discussion o( a gorithms for computation of sums of 


10 


210 read X 




squares is directed not only to programmers of scientific soft- 


OA 


220s = s + {x-m)*(x-m) 




ware, but to users of app ications programs as well. Statistical 


FM 


230 next i 




packages use sums of squares in the calcu ation of variances, 


CM 


240prnt "mean = ",m 




standard deviations, and other statistics. Some spreadsheet anc 


LF 


250 print "sumsq - " .s 




database programs a so calculate variances and standard devia- 
tions. Unfortunate y, many programs, even relatively expen- 


JF 


500 data 0,1, 2 






sive commercial products, give wrong answers! The user must 








be wary. The simple data sets given above, whi e not infa lible 




Program 2 




tests for all inaccuracies, are usual y cood indicators of procram 








reliability. If the program gives the "variance" of a group of 


FK 


1 00 rem ca culator a gor thm 




numbers, it shou d give a value of 1 for any of Ihe sample data 


EB 


110x2-0:1 = 




sets. The "standard deviation" is the square root of the vari- 


PC 


120fori-1 to3 




ance, thus, in the present case, it should also be 1.* 


J 


1 30 read x 






AB 


140x2 = x2 + x*x 






OP 


150t = t+x 




Summary 


PH 


1 60 next 






F 


170t2=t«t 




Numerica results, such as sums of squares, can be calcu aled 


JO 


180s = x2-(t2/3) 




in various ways. Formulas that are mathematica y equivalent 


BN 


190m-t/3 




may be very different with regard to speed and/or accuracy 


KJ 


200 print " mean = " ,m 




when imp emented on a computer. Programmers must take 


DD 


210prnt "sumsq = ',s 




care to se ect a gorithms that do not ailow intermediate compu- 
tations to wander beyond the limits of a computer's precision. If 


JF 


500 data 0,1, 2 






proper care is taken, even inexpensive home computers can 








produce perfectly acceptab e levels of accuracy in difficult 




Program 3 




numerical problems. 




100 rem updating a goritfim 




' AE 




AE 


110n = 0:m = 0:s-0 




* The usua definition of variance is the sum of squares divided 


PC 


120fori = 1 to3 




by one ess than the samp e size, e.g. in the present case, 2/2 - 


IJ 


1 30 read x 




1 . An a ternative dehnition uses the sample size in Ihe denomi- 


C 


140n = n + 1 




nator, or 2/3 = 0.67. In the latter example the standard 


MD 


1 50 s = s + (x-m)*(x-m)-(x-m)*{x- 


-m)/n 


deviation would be the square root of 0.67, or about 0.82. 


AB 


160m = m + {x-m)/n 






J 


1 70 next i 






G 


180 print "mean -",m 






PB 


190 print "sum sq = " ,s 






JF 


500 data 0,1, 2 
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The Projector 



Ian Adam 
Vancouver, B.C^ 



As close to 3D as possible short of holographies. • , 



Abstract 

This article builds upon the high-resolutiou drawing routines 
introduced in Volume 5. Issue 6 of The Transactor. It presents a 
BASIC program to construct a three-dimensional plot, using these 
routines. A matrix generated irom either a mathematical formula 
or empirical data may be plotted. The plot is self scaling, and 
includes a title. 



The Projector 



n Volume 5 Issue 6 of the Transactor, Gary Kiziak introduced an 
excellent high-resolution graphics utility for the Commodore 64. 
That utility gives the programmer access to the extensive graphics 
that are available with the 64 but not supported by BASIC. The 
utility resides in the free RAM at $C0O0, and uses direct SYS calls to 
plot on the high-res screen at $E000. 



Well, the article sounded good, so 1 typed in the utility and gave it a 
Iry, The routines work well, and are easy to access, with a good 
range of functions available. I will also look forward to the circle 
and ellipse routine that Gary promised. About the only complaint I 
could think of is that the hi-res screen at SEOOO, hidden under- 
neath the kernal ROM. is inaccessible to my screen dump routine. 
Solving that may take some ingenuity. 

One thing leads to another, however, and 1 soon found myself 
experimenting long into the night with the new routines. What 
came out of the mill was an interesting program, reproduced here, 
which projects a three-dimensional representation of a matrix of 
data. You have probably seen similar plots before, as they make for 
a good way to show off the capabilities of a computer's graphics, or 
indeed those of a printer. Thus, they are sometimes favoured by 
manufacturers. In addition to demonstrations, a couple of other 
applications spring to mind. By feeding in different mathematical 
functions, you could use this program to help visualize and 
understand the meaning of trigonometric formulae. A completely 
different application would be to plot up the empirical results of a 
scientific experiment, or ground contours, etc. 

The 64 doesn't have a holographic display screen (at least not yet. 
anyway), so the 3-dimensional data has to be confined to a 2- 
dimensional display. This is achieved by viewing the Y-coordinate 
at an angle, thela, from the X-axis, The horizontal component of Y 
is expressed as a function of COS(theta), with the vertical compo- 
nent based on SIN(lheta). The X-coordinate is simply viewed 
horizontally, while the dependent variable Z(X,Y) is viewed verti- 
cally. Both have to be modlhed by a scale factor in order to fit 
comfortably on the 64's screen. 



The Program 

The program itself is straightforward; these comments should help 
in understanding it, and as a guide to any modifications you may 
have in mind: 



Lines 150-210 set up the plotting calls and load the machine 
anguage. 



Lines 240 and 250 contain the values for M and N. the number of 
lines in the plot in the X-direction and Y-direction respectively. 
There is a trade-off here. . , higher values will give better resolu- 
tion, but at the expense of speed, 260 and 270 set up the resulting 
arrays. 

Lines 290 to 340 are the loop to calculate function values. This is 
where you can substitute other expressions in line 330, for differ- 
ent plots. Lines 390 to 490 contain other formulae to experiment 
with- If you do change the formula, remember to change the title in 
line 360. 

Lines 530 to ,S80 are where the viewing angle is set, or defaulted to 
60 degrees. This is a simplihcaiion, since in reality there are two 
angles to be set, one a rotation in reference to the X-Y axes, and 
the other the elevation above the X-Y plane. For simplicity, these 
have been combined into one composite angle. Line 580 converts 
to radians. 

Lines 590 to 710 proceed to create a base grid with these parame- 
ters to ht the 64's screen, and set up the necessary arrays. The X- 
coordinate is scaled to fit across the screen. The projection ot the 
Y-coordinate horizontally and vertically is specified in the YHRIZ 
and YVERT arrays. The Z-coordinate plots the array Z(X,Y) verti- 
cally- 

Lines 730 to 820 calculate the vertical scale, a critical factor in the 
plot. Without going into all the details, the largest scale is selected 
to contain the plot on the screen. 

Lines 840 to 900 use this scale to construct a second matrix, R(X,Y). 

Lines 930 and 940 set up the high-res screen, with orange plotting 
on a black background. 

Wilh all that preparation out of the way, most of the rest of the 
program actually projects the data. Lines 960 to 1020 plot the 
horizontal lines, while 1040 to 1 100 do the vertical lines. 1120 to 
1 190 draw the base of the projection, while 1220 prints the title. 

Finally, line 11250 allows you to view the result, then press any 
key to return to the text screen and decide how to proceed. 
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How To Use It 



Type in the Projector program, and save it on the same disk as the 
Hires machine language file. Make sure you have a copy saved, then 
RUN. The program wili LOAD the Hires file as its first step. Be patient; 
preparing the data for plotting will take anywhere up to a minute or 
so, depending on its complexity. 

You will then be asked what viewing angle you want; enter a value 
from to 90 degrees. A small angle will emphasize the relief of the 
plot, but may hide some details. A large angle gives a broader 
overview. If in doubt, simply press 'return' for the default value of 60 
degrees. 

The plotting itself is interesting io watch, and only takes about 15 
seconds. After viewing the plot, press any key to return to the text 
screen. You will then have a choice of reviewing the same data from a 
different angle, or ending the program. After ending, try one of the 
other expressions in lines 390 to 490. Simply renumber one of the 
formulae as line 330, and the corresponding title as 360. Remove the 
REM in each case, then RUN. You may wish to substitute other 
expressions of your own - the possibilities are limitless. If you need to 
plot empirical information, enter it at the end as DATA statements, 
then replace line 330 with READ Z{X.Y). 

The program is fairly forgiving of errors, since it is self-scaling. It will 
accept and plot some small negative numbers, though anything 
excessive w ill stop it with an error message. The easiest way to correct 
a negative number is to add a constant to the expression, as shown in 
line 410. 

This program grew out of Gary Kiziak's utility routines; you, in turn, 
may wish to embellish it further Add refinements, parallax, new 
formulae, a hidden-line algorithm, whatever - there should be 
enough to keep you busy on a rainy day. Sometimes the best ideas 
don't happen all at once; like a lawn in the rain, they just grow! 

Editor's Note 

FICTRANS, ihe subroutine below, will transfer on 8K hi-res screen at 
SEOOO to memory at $2000. Add these Imes to fans program and 
simply GOSUB 50000. Once transferred, a printout can easily be 
made with either PICPRINT (Volume 5, Issue 03. Disk 2) or BIGPRINT 
(Volumes. Issue 06, Disk 5) or any similar program. BIGPRINT wilt be 
included on Tfie Transactor Disk (Disk 9) for this issue. 



rem* data loader for -pictrans" • 
cs = 

for i = 828 to 869:read a:poke i,a 
cs-cs + a:next i 

J 

if CS06573 then print " Idala error! " : end 

sys 828 

return 

data 169, 32, 133,254,169,224, 133,252 
data 169. 0,133,251,133.253, 160, 
data120, 165, 1, 72, 41,253,133, 1 
data 1 77, 251 , 1 45, 253, 200, 208, 249, 230 
data 254. 230, 252, 208, 243, 104, 133, 1 
data 88, 96 
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CM 


100 rem the projector - perspective plotter 


FE 


700yvert{y) = 10 + y*yg 






HO 


110 rem by ian adatn Vancouver, be 


KM 


710 next 






MM 


120 rem requires hires p otting routines 


EE 


720: 






EL 


130 rem from the transactor vol 5 iss 06 


AA 


730 rem vertica scaling 






AA 


140: 


HB 


740 print "scaling data 






PK 


150 rem setup 


KF 


750 vscalar = 9e9 






PN 


160 hi = 491 52: co = 49173: dr = 49155 


PC 


760 for y=0 ton 






NA 


1 70 mo = 491 61 pr = 491 82: dm =491 67: te = 491 79 


FIVl 


770a = 0: forx=0tom 






LJ 


180cd$ = chr${17) 


CP 


780 if z(x,y)>a then a = z(x,y) 






CD 


190: 


CL 


790 next, rem find highest point on ine 






MH 


200 if peek(hi + 1} = 1 94 then 240 


OG 


800 if a then tmp = {1 99-yu(y))/a 






J 


210 oad'hires",8,1 


JB 


810 if vs>tm then vs = tm 






AF 


220: 


KO 


820 next: rem select best feasib e scale 






HO 


230 rem parameters 


CL 


830: 






GM 


240 m = 20. rem x-dimension 


CP 


840 rem calculate rise 






IN 


250 n = 16: rem y-dimension 


CJ 


850 print " . . .still scaling! 






AL 


260dimz(m,n),r(m,n) 


DJ 


860 for y = ton 






LO 


270 dim xh(m),yh(n),yv(n) 


HM 


870 tm = yv(y) 






M 


280: 


BK 


880 for X = to m 






DE 


290 rem data to plot 


HF 


890 r(x,y) = z(x,y)*vs + tm 


■ 




NL 


300 print " creating data " 


JJ 


900 next x,y 






HG 


310forx = 0tom 


CA 


910: 






HH 


320 for y = ton 


FB 


920 rem set up screen 






EJ 


330 z(x,y) = 1 2'X + 10*y-1 .25'X''y 


GE 


930syshi,0,0,8 






CK 


340 next y: print x: next x 


GH 


940sysdm,1 






CN 


350: 


KC 


950: 






OF 


360 a$ = " hyperbolic paraboloid " : rem title 


PE 


i 960 rem plot horizontal lines 






GO 


370: 


BA 


970 for y = ton 






CP 


380 rem insert other expressions in 330, and change tit e in 360 


JB 


980 tm = yh(y) 




1 


1 

FA 


385 rem (change line # of desired function and title below) 


GJ 


990sysmo,tm + 10,r(0,y) 






PM 


390 remz(x,y) = x*x-x*x*x/22 + 75*y-12»y'y +y'y*y/2 


KB 


1 000 for X = 1 to m 






MB 


400 rem a$ = " contours " 


LN 


1 01 sys dr,tm + xh(x),r(x,y) 






HP 


410 rem z(x,y) = 560-exp(sqr(abs({x-10)*(y-8)/2))) 


BB 


1020 next x,y 






PR 


420 rem a$= "shell roof " 


KH 


1030: 






FN 


430remlm = sqr(x*x+1,5*vy):z(x,y)=10 +sin(lm) + y/4 


00 


1040 rem pot vertica ines 






CF 


440 rem a$ = " gravity waves " 


LE 


1050forx = 0tom 






CL 


450 rem tm = sqr((x-10)t2 + (y-8)t2): z(x,y) = 1 50-tm«55 


EG 


1060tm = xh(x) 








+ tm*tm*8-tm*lm*tm/3 


EN 


1070 sys mo,tm,r(x,0) 






AA 


460 rem a$- "splash" 


AH 


1080 for y = 1 ton 






CM 


470rema = 20-abs{x-10):b = 18-abs(y-8):z(x,y) = a 


AD 


1 090 sys dr.tm + yh(y),r(x,y) 








: ifb>athenz(x,y) = b 


DO 


1100 next y,x 






D 


480 rem a$ = " house " 


Kl^ 


1110 






KA 


490 rem z(x,y) = y + (8-y)*C(x>4)and(x<16))''((y>3)and(y<13)) 


LN 


1120 rem draw box 






LF 


500rema$= "plateau" 


LP 


1130 sys mo,10.r(0,0) 






FL 


510 rem or read empirica resutsfrom data 


DC 


1140sysdr,10,10 






MH 


520: 


JD 


1150sysdr,xh(m),10 






BD 


530 rem projection 


GIv! 


1160sysdr,xh{m),r(m,0) 






KF 


540 Iheta = 60: rem default angle 


I^F 


1170sysmo,xh(m),l0 






GN 


550 print cd$ " enter viewing angle, or press return 


HI 


1 1 80 sys dr,xh(m) + yh(n),yv(n) 






AN 


560 print "for 60 degrees: 


AD 


1 1 90 sys dr,xh(m) + yh(n),r(m,n) 






AG 


570 input th 


EC 


1200: 






HH 


580 th=lh'3. 14159265/180 


DL 


1210 rem title 






BB 


590tmp = 120-^GOs(th) 


BA 


1 220 sys co,1 3: sys pr,1 ,24,a$ 






OH 


600 xgrid = int((309-tm)/m) 


CE 


1230: 






EB 


61 ygrid - int{96*sin(th)/n) 


AP 


1 240 rem wait for human 






AD 


620 ystp = int(tm/n) 


JB 


1250 wait 198, 1:getb$ 






KO 


630: 


D 


1 260 sys te 






JD 


640 rem calcu ate offsets 


KG 


1270; 






LL 


650 for X = to m 


LK 


1 280 print cd$ " press r to review from another 


ang 




OB 


660xhriz(x) = 10 + x*xg 


EC 


1 290 print " press any other key to enc 






CK 


670 next 


LE 


1300 wait 198, 1:getb$ 






PN 


680fory^0ton 


LG 


1310ifb$='f" then 540 






EK 


690yhriz(y) = y*ys 


C 


1320 end 




TheTrantoctor 32 


Valunw6,lnue04 



HIRES Create 


GJ 


1610datal92, 144,241, 96, 32, 77,192, 32 




AN 


1620data 121, 193,240, 2,169,128,141, 53 


Cory's hi-res utility wiU be included on Disk 9 for this issue. For a 


FN 


1630 data 192, 32.121. 0,240, 3, 32, 30 


comptete description of the commands you 'U need the first Program- 


LE 


1640 data 194, 173, 0,221, 9, 3, 73, 3 


ming Aids and Utiliiies issue (Volume 5, Issue 06). 


NG 


1650 data 141, 0.221,173, 24,208, 41, 7 




KK 


1660data 9, 8, 9, 48,141, 24,208,173 




OP 


1670 data 17,208, 9, 32,141, 17.208, 44 
1680data 53,192, 16, 12,173, 22.208, 9 




FN 


1000 rem ** hires routine - written by gary kiziak 


DM 




JP 


1010 rem •• creates load/run program on diskette ** 


FH 


1690data 16,141, 22,208,169, 3,208, 10 




AH 


1020: 


KG 


1700datal73, 22,208, 41,239,141, 22,208 




HK 


1030 open 15,8,15: open 8,8,8/' O.hires.p.w" 


JN 


1710data169, 7,141, 54,192, 73,255,141 




MB 


1 040 input#15,e,e$,b.c: if e then close 15: pnnte,e$,b,c 


OJ 


1720data 55,192,169.255.141. 51,192, 96 






: stop 


BO 


1730data169, 1,141, 65,192,173, 67,192 




JA 


1050 for J = 491 52 to 51233: read X print#8,chr$(x); 


EF 


I740data14l, 66,192,169,128,141, 52,192 






: ch = ch + X' next: closeS 


BB 


1750data 32,135,193,173, 45,192, 10, 10 




HA 


1 060 if ch<>24591 9 then pnnt " checksum error " : end 


BN 


1760data 10, 10,141, 62,192,141, 70,192 




G\ 


1070 print '"" program comp ete "* ": end 


BD 


1770datal73, 43,192, 41, 15,141, 61,192 




MK 


1080: 


KB 


1780data 44, 53,192, 48, 12, 13, 62,192 




SL 


1090 data 76,206,197, 76,199.199, 76, 4 


EE 


1790data141, 62,192,141, 70,192, 76, 75 




fB 


11 00 data 200, 0, 0, 0, 0, 0, 0, 


DJ 


1800 data 193, 141, 33,208, 32,121,193, 41 




ED 


niOdata 0. 0, 0, 0, 0,255,128. 


PG 


laiOdala 15,141, 63,192, 32,121,193,141 




FF 


1120 data 7,248, 0, 0, 0, 0, 0, 


FJ 


1820data 64,192,173, 62,192, 76, 75.193 




MJ 


1130data 0, 0, 0, 1, 0, 15,240,240 


BJ 


1830data 32,135,193,162, 3,189, 43,192 




KF 


1140data 0, 0,208, 0, 0, 0, 0,173 


EJ 


1840datal57, 39,192,202, 16,247, 96, 56 




EN 


1150data 58,192,208, 27,173, 0,221,141 


JK 


1850data169, 199,237, 41,192, 72, 74, 74 




FD 


lieOdaTa 57,192,173, 24,208,141. 58,192 


LH 


1860 data 74,133,252,160, 0.132,251, 74 




HE 


1170data173, 17,208,141, 59,192,173. 22 


OD 


1870 data 102,251, 74,102,251,101,252,133 




AB 


1180data206, 141, 60,192, 32,110,192, 96 


IC 


1880 data 252, 173. 39,192,174, 40,192, 45 




OK 


1190 data 173, 0, 3,201,231,208, 7,173 


FP 


1890data 55,192, 44, 53,192, 16, 6, 10 




JE 


1200data 1. 3,201,192,240, 44,173, 


DN 


1900data 72,138, 42,170,104, 24,101,251 




IJ 


1210dala 3, 141, 234, 192. 173, 1, 3, 141 


NH 


1910data133, 251, 138, 101,252, 133,252, 104 




MP 


1220data235, 192, 169,231, 141, 0, 3, 169 


GJ 


1920data 41, 7, 24,101,251,133,251,133 




00 


1230 data 192, 141, 1, 3. 173, 2, 3, 141 


BO 


1930 data 253, 144, 2, 230, 252, 165, 252, 74 




IC 


1240data 41,193,173, 3, 3,141, 42,193 


EL 


1940 data 102, 253. 74,102,253, 74,102,253 




LP 


1250 data 169, 8, 141, 2, 3, 169, 193. 141 


J 


1950data133, 254, 44, 53,192, 48, 16, 24 




HJ 


1260 data 3, 3, 96,173, 58,192,240, 26 


01 


1960 data 169, 0,101,253, 133,253,169,204 




NO 


1270data141, 24,208.173, 57,192,141, 


PP 


1970 data 101, 254, 133,254, 76,249, 194, 173 




OF 


1280data221, 173, 59,192.141, 17,208,173 


GP 


' 1980 data 65,192,201, 3,144,234, 24,169 




FD 


1290data 60,192,141, 22,208.169, 0,141 


M 


1990 data 0, 101,253, 133,253, 169,216, 101 




GF 


1300 data 58,192, 96, 72,169.127,141, 13 


hi 


2000data254, 133,254, 24, 165.251, 105, 




BC 


1310data220, 165, 1,141, 56,192, 41,253 


JP 


2010data133,251, 165,252, 105,224,133,252 




JD 


1320datal33, 1,104, 96, 72,173. 56,192 


EE 


2020data173, 39,192, 45, 54,192,170, 96 




OH 


1330data 133, 1, 169, 129, 141, 13, 220, 104 


DK 


2030data169, 0,168, 44, 52,192, 16, 4 




DN 


1340data 96, 16. 3, 76,139,227,142, 13 


MN 


2040data112, 20, 80, 15, 36, 2, 48, 9 




LC 


1350data 3, 44, 76,192, 16,245,169, 


HC 


2050 data 169, 255, 133, 2, 36,107. 48, 1 




LH 


1360datal33, 20,169, 0,133, 21,162,250 


NE 


2060data 96,177,251, 77, 51,192, 44, 53 




CE 


1370 data 154, 169, 167, 72,169,233, 72, 76 


GG 


2070 data 192, 48, 10, 61, 86,195,133, 97 




KM 


1380 data 163, 168, 32, 169, 192, 173,234, 192 


AM 


2080 data 189, 86,195,208, 8, 61, 94,195 




EJ 


1390 data 141, 0, 3, 173,235, 192, 141, 1 


MK 


2090data133, 97,189, 94,195, 73,255, 49 




NW 


1400 data 3,173, 41,193,141, 2, 3,173 


JE 


2100data251, 5, 97,145,251,177,253, 45 




PD 


1410 data 42,193,141, 3, 3,169, 0,141 


NH 


2110data 66,192, 13, 70,192,145,253, 96 




KL 


1420 data 76,192, 76,131,164,164,254,240 


CP 


2120data128, 64, 32, 16, 8, 4, 2, 1 




LO 


1430 data 13, 160, 0, 145,251,200,208,251 


HK 


2130datal92, 48, 12, 3, 32,110,194, 32 




MO 


1440 data 230, 252, 198,254.208,243, 164,253 


BC 


2140datal21, 0,240, 11, 32,228,196, 32 




CO 


1450 data 240, 10, 136, 240. 5, 145,251, 136 


CI 


2150 data 121, 0,240, 3, 32,214,196, 32 




PN 


1460dala208, 251, 145, 251, 96, 32,201,192 


EB 


2160data201, 192, 32.125,194, 32, 14,195 




NH 


1470 data 160, 0, 132,251, 160,204, 132,252 


FG 


2170 data 76,218,192,169, 1,149,106,169 




MN 


1480 data 160, 232, 132,253, 160, 3, 132,254 


EL 


2180data 0,149,107, 56,189, 43,192,253 




DA 


1490data 32, 43,193,169, 0,133,251,169 


KH 


2190data 39,192,149, 98,189, 44,192,253 




KB 


1500 data 224, 133,252, 169, 64, 133,253. 169 


OA 


2200data 40,192,149, 99, 16, 20,169,255 




CC 


1510dala 31,133,254,169, 0, 32, 43,193 


EF 


2210data149, 106, 149, 107, 56, 169, 0,245 




BK 


1520data 76,218.192, 32,253,174, 32,138 


BF 


2220data 98,149, 98,169, 0,245, 99,149 




OL 


1530data173, 32.247,183,166, 21,165, 20 


AC 


2230 data 99, 96, 21, 98,208, 4,149,106 




DH 


1540 data 96. 32,253.174, 32,124,193,141 


KH 


2240 data 149, 107. 96,165, 99. 74,133,103 




CJ 


1550data 43,192,142, 44,192, 32,121,193 


GC 


2250datal65, 98,106,133,102, 24,169, 




AN 


1560datal41, 45,192,142, 46,192,169, 63 


GG 


2260data229, 98,133,104,169, 0,229, 99 




PM 


1570data162, 1, 44, 53,192, 16, 4,169 


FM 


2270 data 133, 105, 96, 24,165,102,101,100 




HJ 


1580 data 159, 162, 0,205, 43, 192, 13Q.237 


MM 


2280 data 133, 102,170,165,103,101,101,133 




IM 


1590data 44,192,176, 3, 76, 72,178,169 


KF 


2290 data 103, 197, 99, 144, 19, 208, 4,228 




JL 


1600 data 199, 205. 45,192,169, 0,237, 46 


G 


2300data 98,144, 13,138, 56,229, 98.133 


1 


nwTKi 


ntoctor 33 


\Mim96,luu»04 1 



CF 
GO 

PK 

AC 

MB 

HJ 

NB 

FG 

MG 

Dl 

MD 

BM 

OL 

FJ 

HM 

HK 

KL 

BM 

KA 

FA 

OB 

HB 

DH 

FE 

PA 

MA 

PC 
PI 

MK 

FM 

BL 

FH 

ME 

CM 

GO 

GK 

NH 

GL 

NM 
EJ 
BL 
AG 
BG 
PB 
NF 
BJ 
GP 
PI 
CJ 
EE 
Jl 
OD 
ML 
FK 
LG 
EN 
JP 
NH 
IL 
GK 
KJ 
MK 
EP 
GN 
DK 
HL 
LL 
DL 
FJ 
PF 



16, 3, 32 
76, 218, 192 
73, 3, 106 
96, 32.121 
44, 53,192 



2310datal02, 165, 103, 229, 99,133,103, 56 
2320 data 96, 32,135,193, 32,121, 0,240 
2330dala 44.201,164,208, 16, 32,113,194 
2340data 32,115, 0, 32,138,193, 32,121 
2350 data 0,201. 44,208, 13, 32,228,196 
2360data 32,121, 0.201, 44,208, 3, 32 
2370data214, 196, 32, 43.196, 32,121, 
2380data201.164,240, 220, 96, 32,201,192 
2390dala162, 0,134, 2, 32,129,195.162 
2400dala 2, 32,129,195,165, 98,197,100 
2410 data 165, 99,229.101,144, 62, 32,185 
2420data195, 36,107, 16, 10, 32,113,194 
2430data 56,169, 0,229,108,133.108, 32 
2440 data 125, 194, 32, 14,195,230,104,208 
2450 data 4,230.105,240,102,238, 39,192 
2460data20a, 3,238, 40,192, 32,209,195 
2470 data 144, 9, 24,173, 41,192,101,108 
2480datal41, 41,192, 32,125.194, 32, 14 
2490data195, 76, 91,196,162, 1.181, 98 
2500data180, 100,149,100, 148, 98,202, 16 
2510data245, 32,185,195, 36,107, 16, 10 
2520data 32,113,194, 56,169, 0,229,108 
2530datal33, 108, 32,125,194, 32, 14,195 
2540 data 230, 104,240, 31, 24,173, 41,192 
2550data101,108. 141. 41,192, 32,209,195 
2560 data 1 44, 8, 238, 39, 1 92, 208, 3, 238 
2570data 40,192, 32,125,194, 32, 14.195 
2580data 76.166.196, 36,107, 
2590data 14, 195. 32. 113,194, 
2600data 32, 121, 193, 41, 3, 
2610datal06, 106, 141, 52,192, 
2620 data 193. 41. 3,240, 27, 
2630data 16, 22.141. 65,192,170,189, 61 
2640 data 192, 141. 70,192.189. 66,192,141 
2650data 66,192,189, 7.197,141. 51,192 
2660data 96. 0, 85,170,255, 32,121,193 
2670data 10, 10. 10, 10,141, 62,192, 44 
2680 data 53, 192, 48, 
2690 data 62, 192, 76, 
2700data 41, 15,141, 
2710data 41, 15,141, 
2720data189, 61,192,141. 70,192,189, 66 
2730datal92, 141, 66,192, 96, 32,110,194 
2740data 32,135,193,162, 3,189, 43,192 
2750data157, 47,192,202, 16,247, 32,121 
2760data 0,240, 11. 32,228,196, 32,121 
2770data 0,240, 3, 32,214,196, 24,173 
2780data 39,192,109, 47,192,141, 43.192 
2790 data 173, 40,192.109, 48,192,141, 44 
2800datal92, 173. 41,192,141. 45.192,173 
2810data 42,192,141, 46,192, 32,156,193 
2820data 32, 43,196, 56,173, 45,192,237 
2830data 49,192,141, 45,192,173, 46,192 
2840data237, 50,192.141, 46,192, 32,181 
2850data193, 32, 43,196. 56.173. 43,192 
2860data237, 47,192,141, 43,192,173. 44 
2870 data 192, 237, 48.192.141, 44,192, 32 
2880 data 43,196, 24,173, 45,192,109, 49 
2890 data 192, 141, 45,192,173, 46,192,109 
2900data 50,192,141, 46,192, 76, 43,196 
2910 data 169, 0,133,251,133,252, 32,241 
2920 data 183. 224, 40,144, 3, 76, 72.178 
2930data142, 73.192. 32,241,183,142, 74 
2940data 192, 138,240. 18,224, 25,176,237 
2950data 24.165,251,105, 40,133,251,144 
2960 data 2, 230, 252, 202, 208, 242, 24. 173 
2970 data 73,192,101,251.133,251,133,253 
2980 data 133, 3,169, 0,101.252,133,252 
2990 data 24, 72,105,216,133,254,104,105 
3000 data 204, 133, 4. 6,251.38,252, 6 



9. 13, 61,192,141 
51,197, 32,121,193 
63, 192. 32, 121. 193 
64,192,174, 65,192 



AO 
CM 
NH 
GP 
CA 
IH 
GE 
LB 
HG 
AB 
DJ 
BH 
HE 
GK 
FL 
Nl 
BA 
CL 
HD 
IJ 
LP 
JJ 
MM 
CI 
BM 
GK 
OP 
GP 
BG 
DD 
KG 



GB 
OJ 
GB 
AP 
BH 
IN 
EC 
JD 
HI 
GM 
BP 
EB 
Dl 
BD 
AP 
BM 
NO 
ND 
EB 
MN 
IE 
00 
MC 
BD 
HD 
HE 
FB 
CO 
MJ 
CO 
PJ 
Fl 
IL 



32. 
30, 
22, 
5, 
10, 



3200 data 10, 
3210 data 192, 
3220 data 192, 
3230 data 28, 
3240 data 21, 
3250 data 2, 
3260 data 9, 
3270 data 14,208, 
3280datal99, 201, 



3310 data 192, 
3320 data 32, 
3330 data 208, 
3340 data 208, 



76, 160,199 
28, 30, 31 
25, 26, 
4, 7, 
13, 14, 



27, 
3, 



10 

53 

62 

5 

1 
1 
8 



3010data251, 38.252. 6,251, 38,252, 24 
3020 data 165, 252, 105, 224, 133, 252, 32, 253 
3030 data 174. 32,158,173, 32.143,173. 32 
3040 data 166, 182, 170. 160, 0. 232, 202, 208 
3050data 1, 96,177. 34, 32, 73,198,200 
3060data 76, 60,198,133,215,138, 72,152 
3070 data 72,165,215, 48. 17,201, 32,144 
3080data 28,201, 96,144, 4, 41,223.208 
3090data 2, 41. 63, 76,110,199, 41,127 
3100data201, 127.208. 2,169, 94,201, 32 
3110datal44, 125, 76,108,199,201, 14,208 
3120dala 6, 32,219,199, 76,160,199,201 
3130data 17,208, 11,162, 40, 32, 71,199 
3140 data 202, 208,250, 76,160,199,201, 18 
3150dala208, 8,169, 1,141, 75,192, 76 
3160data160,199,201, 29,208, 6, 32, 71 
3170data199, 76,160,199,162. 3, 44,162 
3180 data 15,221,205,198,240, 6,202, 16 
3190data248, 76,160,199, 189,221,198, 

10, 10, 141. 62, 192, 44, 
48, 6, 13, 61,192,141, 

51,197, 

31, 16, 

23, 24, 
6, 0, 

11, 12, 13, 14, 15,201 

6, 32,216, 199, 76, 160 
17,208, 11,162, 40, 32 
3290dala 28,199,202,208,250, 76,160,199 
3300data201, 18,208, 8,169, 0,141, 75 

76,160,199,201, 29,208,143 
28,199, 76,160,199,165,253 
2, 198,254, 198,253, 165, 3 
2. 198, 4, 198, 3, 56, 165 
3350 data 251 , 233, 8. 133, 251, 165. 252, 233 
3360 data 0,133,252,165,251,201, 0,165 
3370data252,233,224,176, 3, 32, 71,199 
3380 data 96, 230, 253, 208, 2, 230, 254, 230 
3390 data 3,208. 2,230, 4, 24,169, 8 
3400data101, 251, 133,251, 144, 2.230,252 
3410 data 165, 251 , 201, 64, 165, 252, 233, 255 
3420 data 144, 3. 32, 28,199. 96, 9, 64 
3430 data 174, 75,192.240, 2, 9.128, 32 
3440data165, 199, 160, 7. 32,230.199,177 
3450data 5.145,251,136, 16.249, 32.245 
3460data199.200,173, 61,192, 44, 53,192 
3470 data 16, 8,173, 64,192,145,253,173 
3480dala 63,192, 13, 62.192,145, 3, 32 
3490data 71,199,104,168,104,170, 96,133 

5, 169, 0, 133, 6, 6, 5, 38 

6, 6, 5, 38, 6, 6, 5, 38 
6, 24,173, 71,192,101, 5,133 
5,173, 72,192,101, 6,133, 6 

3540 data 96, 32,253,174, 32,138,173, 32 
3550data247, 183, 166, 21,208, 9,165, 20 
3560data208, 3,162,208, 44,162,216,142 
3570data 72,192,162, 0.142. 71,192. 96 
3580data173, 14,220, 41,254,141, 14,220 
3590data165, 1, 41,251,133, 1, 96,165 
3600data 1, 9, 4,133, 1,173, 14,220 
3610data 9, 1,141, 14,220, 96, 32,121 
3620 data 0,240, 15, 32,110,192, 32.121 
3630data193, 141,245, 192, 142,249, 192, 169 

3640datal28, 44,169, 0,141, 76,192, 96 
3650 data 0, 



3500 data 
3510 data 
3520 data 
3530 data 



TtwTrannctor 



Vohima 6, ItMW 04 



Microsecond Timer 
For The Commodore 64 



Zoltan Szepesi 
Pittsburgh, PA 



Count microseconds for up to 70 minutes 



L Introduction. 

The Commodore 64 computer provides four different ways for 
the measurement of relapsed time intervals. These methods can 
be used to measure time intervals of limited values and of 
limited precision. The first three methods are useful only for 
longer time intervals, up to 12 hours. However, the fourth 
method, which is the subject of this paper, enables one to 
measure down to 1 microsecond (one millionth of a second) 
and up to 70 minutes. The following are the four methods in 
question: 



1. Tixe TI$ software clock, which gives the time in Hours, 
Minutes and Seconds (as HHMMSS). It is useful when a 
precision of + or - one second is satisfactory. 



2. The TI jiffy clock with a precision of 
{16-67 milliseconds). 



or - 1/60 second 



3. The C-64 has 2 Complex interface Adapters (ClA^l and 
CIA*2, type 6526). Both have a time of day (TOD) clock with 
a one tenth of a second counter, whence its precision is + or 
- I00ms(ms = milli.second)- This clock keeps the time more 
accurately than the software clock (Tl$ or TI), which is 
disturbed when 1/0 operations disrupt the interrupt routine 
or when the IRQ vector is changed. 

4. Both ClA-s have two general purpose timers (A and B) with 
an F- 1.022730 Mh(Megahertz= 1 million Hertz) clock (in 
Europe the frequency is F = 0.985250 Mh, tuned to the PAL 
TV system). Hence, we have (in the USA) a 
T = 0.9777751 704 microsecond (millionth of a second) 
counter. Both timers have 2 bytes, therefore the total time 
interval could be T*256*256- 64,079 ms on one timer. 
However, Timer B can be linked to Timer A, so that it counts 
the numberof times Timer A goes to zero. This way we have 
a 4 byte (32 bits) timer, that can count from 1 microsecond up 
to 70 minutes. 



11. The ML Program, 

Listing 1. is the source listing of the ML program. It starts at 
address $9F00 and takes 65 + 4 bytes. (You could choose 
another location for this program, e.g. the cassette I/O buffer, 
or some part of the $C000 to $CFFF address, if it is not used for 
other ML routine). The program is composed of two parts. The 
first part (START) controls the starting of the clocks, the second 
part (STOP) slops the clocks and stores their values in the 4 
bytes following the ML program. We use the C1A*2 timers 
because they are more independent from the general operating 
system than the clocks of the CIA*1. 

Timer A can be found at addresses $DD04-$DD05 (S6580- 
56581 decimal), low byte first, high byte second. Timer B is at 
$DD06-SDDO7. These timers count down from $PF (255) to 0. 
Therefore, we first store the value *$FF into the 4 bytes of the 2 
timers (at addresses $9F00 to $9F0D). For starting Timer A, we 
have to store a value of *l in location $DD0E, the Control 
Register A (TCRA). Timer B will start by storing "1 in location 
$DDOF, Control Register B (TCRB). Since we want to link Timer 
B to Timer A, to ensure that Timer B only counts when Timer A 
counts down to 0, we should set bit 6 of TCRB to 1 , and its bit 5 
to 0- This results in $40. Adding the starting byte 1 to this gives 
$4 1 , of which is stored in location $DDOF. 

By setting location $DDOF before SDDOE, we set the start of the 
counting to the end of the START rouhne. If we had started 
Timer A first, the counting would have started 2 + 4 cycles 
before the end of the START program, causing a 5.87 microsec- 
ond addition to the time measured. The RTS at the end returns 
the program back to Basic, where our Basic program can SYS 
up the the STOP routine. 

The STOP routine starts at address $9F20 (7 bytes are left free 
for possible ML commands}. Storing *0 into the control regis- 
ters stops the counting. Here Timer A get stopped first. As you 
see, we have 6 cycles until the is stored at TCRA. This takes 
5.87 microseconds. After storing *0 at TCRB too, the program 
saves the 4 bytes of the timers at 4 locations after the end of the 
STOP routine (at $9F4I-S9F44). from where this data can be 
read out, and the execution time can be calculated in Basic, 
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Ml. The BASIC Program, 

Listing 2 is a Basic program/Data loader for starting the timer 
with a SYS command (end of line 150) for the START routine 
address, followed by stopping it by a SYS command (start of line 
170) again for the STOP routine address. After, the program 
reads out the clock data and calculates the counting time in 
microseconds (lines i 90 to 230), The following statements (240 
to 280) calculate how many minutes, seconds, milliseconds, 
and microseconds are in this time, and print out the ones with 
an integer value greater than zero. 

At the start of the program we also display the lime measured 
by the Tl$ software clock. This could serve to see that our 
program is correct, when the time i[ilerval measured is higher 
than several seconds, 

[f you want to lime a Basic command or program, write it inlo 
lines 160 to 169 (renumber accordingly). Or, if it is a longer 
program, you can place it in a subroutine (lines 4^10 up - above 
the data statements), and enter: 

160GOSUB440 

At the end of the subroutine, use a RETURN, (First entering: 
440 RETURN, you can measure how much time it lakes the 
GOSUB + RETURN+SYS commands to be executed - about 
8ms), and you can subtract this time from the total measured 
time). 



!f we write JMP STOP (4C 20 9F) at address $9F18, we measure 
8.8 microseconds. This is just 3 cycles more than the previous 
lime and truly the JMP command needs 3 cycles. 

Instead of JMP, put JSR STOP (20 20 9F) at address $9F1 8. and 
you will measure 1 1 .73 microseconds, what it takes to execute 
12 cycles. And JSR needs 6 cycles, 3 more than the JMP 
command. 

For a longer ML program we only need to write in: 

JSR START (20 00 9F) 

where we want to start the timing and: 

JSR STOP (20 20 9F) 

where we want to stop the timing. After the program ends we 
can read out the execution time with the Basic program by 
entering: 

RUN 170 



V. Conclusion. 

As we see from the above data, this program measures very 
precisely the execution time, and can be used easily in Basic 
and ML programs as well. 



IV. Measurement Data. 

i want to show a few simple examples for the use of this 
program, and give some measured data. 

We can measure the execution time of a simple Basic Loop 
program as in line 160 of Listing 2. The number of loops (N) is 
defined in hne 140. If we first delete line 160, we will measure 
the time it takes to execute the SYS command of statement 1 70, 
which is about 6 ms. This value should be subtracted from the 
measured time of the examined Basic program. Measuring the 
loop of line 160. we get about T^ 10.6-6 = 4.6 ms with N = l, 
T=114 ms for N = 100 and T= 1 13,705 s for N- 100000. We 
can also see that the execution time is 10 to 30% longer when 
we write out the variable I after NEXT. Furthermore, we see 
that when we repeat the program, the measured numbers are 
not exactly the same; they can differ by several percent (also, 
they are different in the various C-64"s, depending on the ROM 
revision it comes with). 

In the ML program we can put the STOP routine immediately 
after the START routine at address $9F18 and expect to mea- 
sure the time for 6 cycles (LDA *0: 2 cycles and STA TCRA: 4 
cycles). The program gives 5,87 microseconds, which is exactly 
6*0,97777517. 
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Listing 1: ML Source Code 


Listing 2: Basic Demo Plus Data Loader 




EL 


100 rem save"0:timer64,pa 


1 '■ ,8 EL 


100 rem save"0:timer64.bas" ,8 




p 


110 rem time measurements from NL 


110 rem microsecond to 70 minute timer by 




LE 


120 rem 1 microsecond to 70 minutes 


z.szepesi (c) 1985, 




NH 


1 30 rem by zo tan szepesi 


KG 


120 poke 55,255: poke 56, 158: cr: rem set top 




EH 


140 rem 2611 saybrook drive 


of basic be owm . 




MA 


150 rem Pittsburgh, pa 15235 CD 


130 gosub310: rem jriove code into position 




EB 


160: 


MH 


1 40 n = 1 : rem adjust this va ue for demo 




BC 


170 open 4,8,1, "0:timer64.obj'' EG 


150 print "timing started at "tS" (hhmmss)" 




PE 


1 80 sys(700) 




: sys40704 




FN 


1 90 .opt o4 


CB 


160fori = 1 Ion: next 




IH 


200'-$9f00 


B 


170sys40736: print "timing finished at 




E 


210; 




"tiS" (hhmmss)" 




HI 


220 tao - $dd04 : 


tmera BO 


1 80 a1 - ,9777751 7: a2 - 256*'a1 : a3 - 256*a2 




MJ 


230 tb = $dd06 ; 


tmer b 


:a4 = 256*a3 




MK 


240tcra = SddOe 


contro register a PA 


190t1 -(255-peek(40769))'a1 




LL 


250tcrb - $ddO 


control register b MP 


200 t2 = (255-peek(40770))'a2 




KH 


260 timet = « + $41 


OA 


210t3-(255-peek(4077 ))*a3 




K 


270time2 = *+$42 


AC 


220 t4 - {255-peek(40772))*a4 




KJ 


280 time3 - * + $43 


EA 


230t = t1 +t2 + t3 + t4' print chr${17)"**execution 




KK 

1 


290time4 = *+$44 




time-"chrS(145) 




ck' 


300; 


IE 


240m1 -t/(6e + 7): i1 -int(ml): if i1>0then 




MJ 


310 start = • 




print spc(17)i1 " minute" 




NP 


320 Ida #$ff 


AL 


250m2-(m1 i1)*60 i2-int(m2): if i2>0 then 




GO 


330 sta ia 




print spc(17)i2" second" 




MP 340 sta tao + 1 


AP 


260 m3 - (m2 i2)*1 000: i3 - int(m3): if i3>0 then 




MP 


, 350 sta tbo 


1 


print spc(17)i3" mi isecond" 


i 


CB 


360 sla tb + 1 


OK 


270 m4 = (m3-i3)*1 000: i4 = int(m4): if i4>0 then 


1 


FK 


370 da #$41 




print spc{1 7) int(m4* 1 00 + .5)/1 00; 




KP 


380 sta tcrb 


LG 


280 print " microsecond " : end 




DH 


390 Ida #1 


GJ 


290: 




KA 


400 sla tcra 


GH 


300 rem ** timer64 code at $9f00 ■" 




G 


410 rts 


L 


310 for =40704 to 40768: read x: pokej,x 




KB 


420; 




: ch = ch +x: next 




BD 


430 .bytSea, Sea, Sea 


JG 


320 if ch<>8867 then print " checksum error ' : end 




CI 


440 .byt Sea, Sea, Sea, Sea 


GG : 


330 return 




D 


450; 


M ■ 


340: 




CL 


460 stop = • 


AG 


350 data 169, 255, 141, 4,221, 141, 5,221 




BM 


470 da #0 


JE 


360data141, 6,221,141, 7,221,169, 65 




KF 


480 sta tcra 


J 


370data141, 15,221,169, 1,141, 14,221 




G 


490 Eta tcrb 


EN 


380 data 96, 234, 234, 234, 234, 234, 234, 234 




CF 


500 da talo 


PF 


390data169, 0,141, 14,221,141, 15,221 




GL 


510 sta tmel 


NF 


400 data 173, 4,221,141, 65,159,173, 5 




CH 


520 Ida talo+1 


DF 


! 410data221, 141, 66, 159, 173, 6,221, 141 




LM 


530 sta t me2 


MB 


■420data 67,159,173, 7,221,141, 68,159 




MH 
AO 


540 da tbio 
550 sta times 


HD 


430 data 96 








MJ 


560 da tblo + 1 






FP 


570 sta time4 






AD 


580 rts 






EM 


590; 






ED 


600 .end 
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Projectile Motion 

Karl J, Hildon and Chris Zamara 



The following was originaUy presented in Transactor 
Volume 5. Issue 01, back before our newstond distri- 
bution days. It makes several references to "80 
columns^'bul is readily portable to 40 columns, the 20, 
and the 64. 




Once you understand the techniques of putting objects on your 
screen, you'll want lo get them moving. After all, what good is a 
sprite if it doesn^I do anything- In this article we'll discuss some 
simple motion techniques using the laws of physics and me- 
chanics. 

Consider Ihe screen of your computer as a 2-dimensional 
plane. To make an object move in 2 dimensions, you simply 
need supply a series of X and Y coordinates. Coordinate X 
usually represents horizontal position and Y is usually vertical 
position. Constantly changing the combination of these two 
positions will result in the illusion of motion. Calculating X and 
Y is a task determined by what pattern of motion you desire. 

Calculating the path of a projectile can be done in one of two 
ways: the hard way and the easy way. The hard way would be 
probably end up as a collage of imaginative calculations that 
somehow produce a fairly accurate simulatioEi. The easy way is 
the logical way. In any book of physics or mechanics you'll find 
just about every formula for plotting the path of an object that is 
directly affected by a forward velocity, an upward velocity, and 
gravity -a projectile. 



time units. On the computer, the units of distance will be a 
column on the screen or an X-coordinate for a sprite. 

The units of time could be obtained from the internal clock, but 
this imposes certain unnecessary complications. For one, the 
lowest unit is seconds which is an awfully long time unless the 
velocity too is very low. (We could use the TOD clock in the CIA 
but that would limit this demonstration to CIA equipped ma- 
chines and using Tl isn't all too portable either) Another, when 
the seconds reach 59, it is up to the programmer to add the 
minutes times 60 which steals processor time we may need. 

There are probably more but the solution is simple: simulate 
time with a simple FOR/NEXT loop. This offers several syn- 
thetic advantages. You can express time in any unit such as 
tenths of seconds or even 3rds of seconds if you wish. Also, this 
avoids the potential for losing time since the clock will not 
increment until you have used the current 'Value" of time for 
your calculation, and subsequently used the results of that 
calculation for the plot. Further, simulated time can be gener- 
ated within any chosen limits to suit the size and scale of the 
plotting surface. And unlike the clock, simulated time can be 
frozen. 



Forward Velocity 

Every moving object on Earth has a forward velocity. Even if it 
only goes straight up, then straight down, it has a forward 
velocity. Of course this would be a forward velocity of zero. 

Distance = Velocity * Time 

Velocity is represented as some unit of distance, per some unit 
of time (eg. 10 feet/second). Multiplying by time cancels the 



So far our formula will look like this: 

1 00 fv = 1 : rem forward velocity 
120fort = 0to159step.2 
130x = (v t 

1 60 gosub 8000 : rem plot a point 
1 80 next 

The subroutine at 8000 is a plotting routine by Paul Higginbot- 
tom from a previous Transactor article. Note: please see Pro- 
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gram ! at the end of the article - the programs presented in this 
lext are meant lo show the mechanics of our objective. Pro- 
gram 2 and 3 are the same simulation using sprites. The line 
numbers are different and the task of plotting is much simpler, 
but the mechanics are identical. 

As you can see, time will be incremented from to 1 59 in steps 
of 0.2, simulating a fifth of a second clock. ''0 to 159'' reflects 
the number of "half columns'' available to the quarter-square 
plotting routine on an 80 column screen. The X coordinate is 
calculated and delivered to a subroutine that plots the coordi- 
nate on the screen, or the X-coordinate of sprite 0. 

But no upward velocity has been given. In this case the 
projectile will simply move horizontally until the clock stops. 



Upward Velocity and Gravity 

This is the next element of the path of a projectile. It too is 
represented in distance per time unit, but unlike forward 
velocity, it is affected by the phenomena of Gravity. 

Gravity is a unit of acceleration. When you drop an object, it 
starts with a velocity of zero and accelerates. Gravity is usually 
given as -32.2 feel per second squared. Different locations on 
Earth have gravitational constants slightly different than this 
depending on height above/below sea level, etc., but we'll use 
the natural constant for now, Further, if you go up high enough 
to drop your object, it will accelerate to a maximum velocity of 
about 119 mph, but we won't be doing that either. 

The formula for our Y coordinate becomes the upward velocity 
multiplied by time, minus the effect of gravitational pull: 

Y= UV*T-'/2G*P 

The program becomes: 

1 00 fv = 1 : rem forward velocity 
110 uv = 45 : rem upv^ard velocity 
I20fort = 0to159step,2 
130x = fv M 

140y = 5 + uv t-.5 '32.2 Mt2 
1 60 gosub 8000 : rem plot a point 
180 next 

The value 5 at the beginning of line 140 is an initial height 
which gives the projectile a *'floor" to bounce on. This brings us 
to the next consideration. 



cement. Upon impact the object loses some of its initial upward 
velocity. Technically this is referred to as decay or a damping 
factor. However, our program poses another problem in its 
present form- 
When the object impacts, there is a brief moment when it 
comes to a complete stop. Logically, time has become zero 
again and the formula repeats itself at the new decayed upward 
velocity. But our program shows time always incrementing. 
Therefore we must have a method of resetting the clock when 
the new cycle begins. The FOR/NEXT ioop is the target for our 
next modification. It will now be used to represent time in the 
horizontal or X direction only. Vertical time will be stored in the 
variable T so we can reset Y time without resetting X time. This 
is not cheating - it merely makes the task simpler. 

We need also know when the object impacts, Inotherwords, 
where is ground. Since we started from an initial height of 5, 
we'll say that ground is at 5. So when our calculation for Y 
yields a result less than 5, we know the obiect has bounced. 
This is also the point at which the decay takes effect. In this 
example, only upward velocity will decay - the forward veloc- 
ity of a bouncing object is shown to be fairly constant, although 
you could impose damping on it too if you wish. The program 
becomes: 

100tv = 2 : rem forward velocity 

11 uv = 45 : rem upward velocity 

120forj-0to159 

130x = fv ' j 

140y = 5 + uvM-.5*32.2 Mt2 

150ify<5theny = 5:t^0: uv^uv'.9 

1 60 gosub 8000 : rem plot a point 

170t=t+,2 

1 80 next 

Notice that FV has been changed to 2 in line 100. This simply 
allows more cycles on the screen to show the effect of impact. 
Line i 50 says if Y is less than 5 then Y equals 5. This little bit of 
cheating makes the ball bounce at the same vertical spot on the 
screen each time. Time is reset to zero and upward velocity is 
reduced by 10 percent- 



Impact and Decaying Velocity 

As you well know, what goes up must come down. When our 
object hits the Earth, it will bounce, unless it's made of wet 



Summary 

With the program now in its final form, several possibilities 
exist. You can vary gravity slightly lo show the effects of impact 
at different spots on Earth, or vary it a lot to simulate gravity on 
other planets. Your starting point does not necessarily have to 
be the same as the point of impact when the object comes down 
- you might project your object from some much higher 
elevation (eg. a cliff). Also, the object might not be the bouncing 
type - exploding obiects don't usually bounce. If your object is 
the type to bounce, try different decay values for objects made 
from different materials. Depending on how hard they bounce 
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might affect the forward velocity loo - something to think 
about. 

Remember one thing most - computer simulations are all too 
often a task of logical thinking. The actions and reactions of a 
real physical object are usually the best way to simulate that 
object. Think first, program later. 



Program 1 Portability Notes 

The program has been set up for 80 column machines. Line 
9010 prints two HOMEs to clear any windows, a clear screen, 
followed by a set graphics mode - CHR$(i42). For 40 column 
PET/CBMs simply change LN = 80 to LN = 40 in line 9050. 
As it stands, the program will leave a trail along the path of the 
projectile. To remove the trail, add: 

8005 poke bs + p, 32 

Line 8005 will poke a space into the previous POKE position 
thus erasing whatever was there. This is all that is required for 
all machine models. 

ViC 20. Commodore 64, and C128 users (in 64 mode) will need 
to make changes in the setup subroutine at 9000. 



Warning; The plotting routine does not check to see if the 
POKE value is outside of screen memory. The potential for 
POKing into BASIC text space exists! Make sure you SAVE your 
program before trying new functions. 

All the plotting efforts are performed by the two subroutines at 
3000 and 8000, Subroutine 3000 plots a line from XI, Yl to 
X2,Y2 by using subroutine 8000 to plot the points between the 
two coordinate pairs. When sub 8000 goes to plot a point, it 
must first determine if the target character space already 
contains a graphic. If it does, the new point must not interfere 
with the existing point in that space. 

Question: How would you make the ball bounce off the right 
hand edge of the screen (ie. a wall). Hint: if x>79 then x = 1 60- 
X. UseFV = 7:UV-55. 



C128 Notes 

C128 users (in 128 mode) will have trouble adapting just about 
any program that POKEs to the screen. If preliminary informa- 
tion is correct, it seems the screen from the 128 is not memory 
addressable with just a POKE, More in a future Transactor. 



C64 

Change 
Add 



9010 print "Q^ 

90501n = 40:bs=1024 + 24*ln 
9055 cs = 55296 + 24'ln 
8025 poke cs + p,l 



Line 8025 is necessary for Kernal 2 C64s- POKing to the screen 
must be followed by a simultaneous POKE to colour memory or 
the characters will not show up. 



VIC20 
Change 

Add 



9010 print ^ 
90501n = 22:bs = 7680 + 22*ln 
9055cs = 38400 + 22*ln 
8025 poke cs -f p, 2 



V1C20 with expansion 



Change 
Add 



9010 print ^i 

9050in-22:bs = 4096 + 22*ln:... 

9055cs = 37888 + 22*ln 

8025pokecs + p, 2 



Since VIC 20 screens have only 23 lines, it will also be 
necessary to adjust the number 50 at the end of lines 410 and 
430 to 46 (number of lines limes 2), You will also nedd to 
change the first two numbers in the calculation for Y2 at lines 
230 and 330. Start with: 



* * * * 



Program 1 

50 gosub 9000 

500 rem ' * " bouncing ball 

510tv = 2:uv = 55:y1=1 :g = -32.2:dc 

515 rem try fv- 15 : uv = 45. also fv = 0.2 

520fQrj = 0tQ(ln^2-1)/fv 

530x = fv'j 

540y = yl + uv M + .5'g • (t!2) 

550Jty<y1 theny = y1 : t = : uv^^uvdc 

560 gosub 8000 : rem plot a point 

570t = t+,2 

580 next 

590 end 

8000 rem 



= .9 



■k -^ a 



****** 



plot X, y 



********* 



8010tx-int(x + [r):ty = int(y + ir) :sq = am(txandam, ty andam) 
8020 p = tx/dv-int(ty/dv) Hn : poke bs + p, c(i(peek(p + bs))orsq) 
8030 return 



9000 rem 



A * -ife * ih * « 



setup 



^IrHfrll***** 



9010 print ■■^a"chr$(142); 
9020 dim c(15)j(255), am{1J) 
9030 for i = to 1 5 : read c(i) : i(c(i)) = i : next 
9040forf = 0to1 :fori = 0to1 ; am{i,i) = G+ 1)-4ti : nextjj 
9050 In = 80: bs = 32768 + 24Hn : dv = 2 : am = 1 :ir = .5 
9060 data 32,123,108, 98,126. 97,127,252 
9070 data 124, 255, 225. 254, 226, 236, 251 , 160 
9080 return 



Y2 = 23 + 22 * . . . 
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Progi 


ram 2 and 3 Notes 


Prog] 


ram 3 


Chris has e iminated the FOR/NEXT loop from Ihe procedure. 


GH 


100 rem* bouncing bal simuation * 


A though distance is calculated differently, the resu t is the 


CO 


110: 


same. The FOR/NEXT oop incorporates screen boundary 


N 


1 20 ymax ^ 237: xmax ^ 327 


information. Here, XMAX is tested for the screen limits - once 


NE 


130fv = 1.4 :rem forward veocity 


again, same result- 


MN 


140uv=100 :rem initia upward ve ocity 




BO 


1 50 y1 = irem y start position 


Program 2 comes in two parts. Part 1 (lines 10 to 30 and the 


EG 


160 X- 10 :rem x start position 


data) merely creates a ba 1 sprite in fhe cassette buffer. Enthusi- 





170g = -32,2 :rern gravity in feet/s/s 


asts might consider incorporating several ball sizes to add a 


KE 


180dc=.9 :remeasticity of ''ba " 


depth dimension. A perspective factor wou d affect not on y the 


KH 


190 1=0 :rem t me starts at 


size of the ball, but the ground level, the maximum X- 


MD 


200: 


coordinate, and the forward velocity as seen by the observer. 


GG 


210 gosub 410 'create sprite shape 




AF 


220: 


Program 3 is identica , except it creates the sprite using a litt e 


HF 


230 vc = 53248 :rem vc vdeocfiip 


Zamara synthesis. 


M 


240 poke vie + 2 1,1 :rem enable sprite 




LL 


250 poke 2040,14 :rem sprite shape 


Program 2 


AP 


260 sx = vie: sy = vie + 1 : xhi = vie + 1 6 








C 

M 


270: 
280: 




ML 


10 rem- create ba sprite at 896* 




i MK 

1 


20fori = 896to959:read a: poke i.amext 


LP 


290 rem — main oop — 




OB 


, 30 end 


K 


300x = x + fv 




HM 


' 1000 data 0, 0, 0, 0, 0, 0, 3,254 


HK 


310y = y1 4- uv*t 4-,5*g*(t*t) 




ON 


. 1010 data 0, 15,255.128, 63,255.224, 63 


BE 


320 if y<y1 then y = y1:t = 0;uv = uv*dc 




JC 


1020 data 255, 224, 127, 255, 240, 127, 255, 240 


HE 


330 poke sx,x and 255:poke xhi -(x>256) 




DD 


1030dala127,255, 240, 127,255,240, 127,255 


BG 


340 poke sy,ymax-y 




AB 


1040 data 240, 127,255.240, 127,255,240, 63 


A 


350t = t+.2 




NG 


' 1050data255,224, 63.255,224, 15.255, 28 


DM 


360 f x< = xmax then 300 




DA 


1060 data 3,254, 0, 0, 0, 0, 0, 


CH 


370 end 




MP 


1070 data 0, 0, 0, 0, 0. 0. 0. 


AP 
KP 


380: 
390: 










NO 


400 rem** create sprite shape at 896 ** 




GH 


100 rem* bouncing ba simuation* 


MP 


410 on = 896to959:pokei,0:nexl 




CO 


110: 


FG 


420 ori = 925to935step3:reada;pokei,a:next 




F 


1 20 ymax - 233; xmax = 344 


OD 


430 data 24, 126.1 26.24 




LA 
MN 


1 30 fv = 1 : rem forward velocity 
' 140uv=100 ireminitia upward veocity 


EN 

1 


, 440 return 








BO 


150 y1 =0 :remy start position 






NG 


1 60 X = 25 :rem x start pos tion 









1 70 g = -32.2 ;rem gravity in feet/s/s 




■ 


KE 


180dc = ,9 :rem easticily of "ba " 






KH 


190 t = ;rerri time starts at 






MD 


200: 






DE 


210 vic = 53248 :reni vie video chip 






- 


220 poke vie + 21,1 :rem enabesprteO 






HK 


230 poke 2040,14 :rem sprite sfiape 






MN 


240 sx = vie: sy = vie + 1 ; xhi = vie + 1 6 






OG! 


250: 






NN 


260 rem — mam oop — 






MG 


270x = x + fv 






J 


280y-y1 + uv*t +.5*g*(t*t) 






DC 


290 if y<y1 then y = y1:t = 0:uv = uv*dc 






JC 


300 poke sx,x and 255:poke xhi,-(x>256) 






DE 


310 poke sy, ymax- y 






KO 


320t-t + .2 






JM 


330 if x< = xmax then 270 






EF 


340 end 






CN 


350: 
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SID's Programmable Filter 



Karel Vander Lugt 
Sioux Falls, SD 



the filter in one SID chip may not be identical to that in another 



Introduction 

In recent years many articles and several books (ref 1-3) tiave 
been written on programming Commodore's SID (Sound Interface 
Device) chip, Ttiese. along with Commodore's Reference Guide 
(ref 4), do a good job of explaining most of the features of this 
versatile chip. However, there isoneaspect of the658l chip which 
has received very little attention -- its programmable filter. This is 
surprising since in reference4 we read that, ^'Thehlter is, perhaps, 
the most important element in SID as it allows the generation of 
complex lone colors via subtractive synthesis." 



Since the information needed to intelligently program SID's filter 
could not be found in the existing literature, the author conducted 
a series of tests. The object of these tests was to determine the exact 
effect of .sending particular numbers to the four registers control- 
ling SID's filter. This article summarizes the results and is intended 
to enable programmers to better utilize the lull potential of the SID 
chip. Unfortunately, it was also found that the filter in one SID chip 
is not identical to that in another. This is discussed further in the 
article- 



Testing The Filler 

The equipment used to study SID's filter included an audio 
oscillator, a digital voltmeter, a frequency counter, a dual trace 
oscilloscope and several Commodore 64 computers. An external 
oscillator was used rather than one of the three internal voices 
because the internal voices only go up to 4 kHz and do not produce 
a pure sine wave. 



The output of the oscillator, which 
is maintained at a constant ampli- 
tude, is connected to the Audio 
Input of the 5-Pin Audio/Video 
cable. The voltmeter reads the 
RMS value of the Audio Output, 
which is the signal going to the 
monitor. The frequency counter 
provides accurate frequency mea- 
surements and the oscilloscope 
permits simultaneous viewing of 
the input and output signals. 

The first step in the procedure is to 
POKE a selected set of numbers 
into the four filter control registers 
on the SiD chip. An 1 1-bit number 
in register 21-22 selects a cutoff 
frequency. The upper half of regis- 
ter 23 selects a resonance. Bit 3 of 
register 23 is left on so that the 
external signal from the oscillator 



goes through the filter. The lower three bits of register 23 remain 
off since the interna! voices are not used. The volume is set to 
maximum with the lower four bits of register 24. The filter mode 
{low pass, high pass, or band pass) is selected with bits 4 through 6 
of register 24, 

After the hiter was programmed for a particular cutoff frequency, 
resonance and mode, the RMS output voltage as a function of the 
input frequency was obtained. About 30 readings, ranging from 10 
Hz to 20 kHz, were taken for each set of data. 

For each of the three filter modes, several sets of data were 
obtained using different numbers in SID's registers controlling the 
cutoff frequency and the resonance. Each set of data was plotted 
with the y-axis as the normalized output in decibels and the x-axis 
as the log of the frequency. The results are discussed in the next 
section. 

Results 

A. The Three Filter Modes 

An ideal low pass filter passes all frequencies below the cutoff 
frequency and severely attenuates all those above it. A typical 
response for SID's low pass filter is shown in Figure 1 , The y-axis is 
the output signal in decibels (y - 20-log(Vout/Vmax)). The x-axis 
is the frequency of the input signal, also on a logarithmic scale. The 
resonance was maximum (15) for the upper curve and minimum 
(0) for the lower curve. In both cases, the number 800 was placed 
inreglster2l-22. 
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Figure 1 : The S/D filler in its low pass mode. The upper curve is for maximum 
resonanceffS) and the tower curve is for mitumum resonance(O). 
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The cutoff frequency is delermined by 
the -3dB point, Ihat is, Ihe frequency 
at which the signal is attenuated to 
70% of its maximum value. For this 
particular C-64, a setting of 800 in 
register 21-22 produces a low pass 
cutoff frequency of 1840 Hz when the 
resonance is 15 and a low pass cutoff 
frequency of 1360 Hz when the reso- 
nance is zero. 

With the resonance set at zero, fre- 
quencies above the cutoff point are 
attenuated at a rate of approximately 
14dB per octave. As seen from the 
upper curve, the rolloff rate is even 
higher for a resonance of 15. 

Figure 2 illustrates a typical response 
for SlD's high pass mode. The upper 
curve is for a resonance of 15 and the 
lower curve is for a resonance of zero. 
As before, the number placed in regis- 
ter 21-22 was 800. The -3dB cutoff 
frequency is 1115 Hz for the upper 
curve and 865 Hz for the lower curve. 
The rale of attenuation below the cut- 
off point is approximately SdB per 
octave. 

A typiciil response for the band pass 
mode b show[i in Figure 3. The upper 
curve is for a resonance of 1 S. The low 
frequency cutoff point is S9i) Uz and 
the high frequency point is 1900 Hz. 
Thus Ihe bandwidth is 1010 Hz. The 
center frequency (the square root of 
the product of the two cutoff frequen- 
cies) is 1300 Hz. The Q value (center 
frequency/bandwidth) is 1.29. 

When the resonance is set to zero, the 
peak is broader and the cutoff points 
shift to lower frequencies. This is 
shown by the lower curve in Figure 3. 
With Ihe resonance at zero, the low 
frequency cutoff is 520 Hz and the 
high frequency cutoff is 1910 Hz. The 
bandwidth is 1390 Hz. The center 
frequency is 997 Hz and the Q value is 
reduced to 0.72. 
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Figure 2: The SiD filter in ifs high pass mode. The upper cuwe is for 
maximum resonance and the lower curve is for minimum resonance. 
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Figure 3: The SID filler in the band pass mode. Again, the upper curve 
is for a resonance of 1 5 while the lou)er curve is for a resonance of 0. 



In both cases the rate of attenuation is approximately -IdB per 
octave on the low frequency side and about 7dB per octave at high 
frequejjcies. With the resonance at 15, the rolloff rale near the 
upper cutoff point is considerably higher, about 25dB per octave. 

B. The Cutoff Frequency 



If one wants to use SID's filter to modify sounds, it is important to 

know how the cutoff frequency can be adjusted with software. The 

iterature suggests the cutoff frequency can be adjusted between 



approximately 30 Hz and 12 kHz by proper choice of the number 
sent to register 21-22, Some sources (ref 5) state the relationship is 
linear while others (ref 2) imply it is exponential. The results of this 
study indicate the relationship is neither linear nor exponential 
and that the range varies greatly from one SID chip to another. 

Figure 4 shows, for one particular Commodore 64, how the ~3dB 
point varies with the setting of register 21-22. The resonance is set 
at zero. The upper curve is for the low pass mode and the lower 
curve is for the high pass mode. Over the range of register 21-22 (0 
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to 2047) the low pass cutoff point varies from 78 Hz to 7595 Hz. 
The fiigh pass cutoff point varies from 55 Hz to 4935 Hz, In eilher 
case, the relationship is not linear over the entire range. Below a 
setting of 800 the curves are approximately parabolic and above 
800 they are approximately linear, but with different slopes and 
intercepts. Using a curve fitting program it was found that the data 
can be fit reasonably well with cubic polynomials. 

Unfortunately, when the same series of tests was done using a 
different C-64, a different result was obtained. In fact, there was 
considerable variation among the several C-64s used. Figure 5 
illustrates how the high pass cutoff point varies with the seuing of 
registLT 2 1-22 for three different Commodore 64s. The variation is 
disappointingly large. For example, in one computer (lower curve) 
a setting of 1500 in register 21-22 produces a high pass cutoff 
frequency of 3365 Hz while in another computer (upper curvt') the 
same setting produces a high pass cutoff frequency of 1 i ,000 Hz. 
The low pass and band pass cutoff frequencies also exhibit these 
large variations. 



Conclusion 

The SID chip is often touted for its excellent sound producing 
capabilities. Much of the praise is deserved. Commodore^s incor- 
poration of a programmable filter into the chip is laudable; how- 
ever, until more consistency can be obtained in the setting of the 
cutoff frequencies via register 21-22, the filter is of limited use to 
programmers. 



Dr. Vander Lugt con be contacted at the kAlowing address: 

Dr.K. VanderLugt 
Professor of Physics 
Augusta no College 
Sioux Falls, SD 57197 
(phone 605 336-4911} 
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Figure 4; Relationship between cutoff frequency and the number 
POKEd to S/D 's cutoff frequency register. The upper curve Is for the 
low pass mode and the lower curve is for the high pass mode. The 
cutoff points for the bandpass mode fait between these curves. The 
data in Figures 1,2 and 3 was tafien with the number 800 POKEd 
into S/D register 2 1 -22. 
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The Compressor: 

A High-Resolution 

Picture Compressor/Decompressor 

Chris Zamara, Technical Editor 



Store your high-res pictures in less than half the usual disk spacei 



I 



High-res pictures are nice to look at. but they eal up Ids of disk 
space - to ttie tune of 8,000 byte.s per picture, or 32 disk blocks. 
Ttiat can be a problem if you're trying to write a game with 
many differeni screens or an adventure with dozens of scenes - 
you'll quickly reach the 664 block hmit of a 1 54 1 disk! Not only 
that, but loading in a picture from the lumbering 1541 can lake 
way too long - about 20 seconds. As you may have guessed by 
now, you're about to find a way out of both these problems: 
THE COMPRESSOR. 

The Compressor will compress your pictures (either hi-res or 
multi-colour) by taking advantage of byte repetitions. This 
occurs often in pictures, for example when a large area is one 
solid colour, creating scores of consecutive zeroes or 255s in 
the bitmap. Any picture with vast blank or single-colour areas 
will benefit greatly by being compressed. An uncompressed 
picture takes 32 blocks on disk, but a typical compressed 
bitmap takes less than 20. The actual size of a compressed 
picture varies greatly depending on the pattern, from about 90 
bytes for a blank screen up to over 20 for a full-screen, highly 
detailed display. Generally, the worst case for a picture - 
something like a portrait which fills the entire screen - will be 
compressed to about 20 blocks; that translates to about a 38 
percent savings i n disk space- (Actually, the extreme worst case 
is a screen filled with random bytes; it takes up about the same 
space compressed or uncompressed.) Better, though, are pic- 
lures with a pattern or outline drawing against a single-colour 
background. For example, there is a picture of Snoopy on one 
of the Toronto Pet User's group hi-res picture disks; Snoopy 
gets compressed to a mere 9 blocks! That means about a 72 
percent savings in space, and also in time when the picture is 
brought in by the decompressor (which is part of the same 
program). The average size for compressed pictures seems to 
be about 1 5 blocks, less than half the usual space. 

The Compressor was originally written to save a bitmap screen 
from memory to a disk file. That version can find use in 
applications where you've created a picture from BASIC or a 
hi-res graphics utility and wish to save it in compressed form. 



The save- from- memory version of The Compressor appears i n 
BASIC form in Listing 2, !n many applications, however, you 
already have a hi-res picture on a disk file, either from another 
source or created with a commercial drawing package like 
Koalapainter. To convert an existing hi-res picture, use the 
version of The Compressor in Listing 1 . The file to be converted 
must be in LOADable form. i.e. it must be a PRO or SEQ file and 
contain the load address as the first two bytes. The compressed 
file created by The Compressor will be the same format, the 
load address telling the uncompressor where to put the picture 
when it is brought in. Picture files created with Koalapainter 
(Koala pad software) or Commodore's Animation Station can 
be directly compressed by The Compressor, but you'll probably 
want to separate the bit-map and colour-map information into 
separate files first. More on that later. 

To use The Compressor, first create the machine-language 
prograiTi file on disk by entering the BASIC loader in Listing 1 
or 2 (depending on your preference) and runnmg it. This will 
pul the file called "compl.obj" or "comp2-obj" on disk which 
you can then bring into memory with a normal LOAD (using " 
.8,1 " after the filename). The example program in Listing 3 
loads "compl.obj", so you'll have to create it before running 
listing 3. If you have the Transactor disk, the object file is 
already on disk and you can skip the above step. 

Version 1: Compressing A Hi-Res Picture 

Program File 

Compressing and de-compressing a picture file can be easily 
done using ihe example program in Listings. You can use this 
program to compress a picture or load a compressed picture, or 
you can use The Compressor from direct mode or in your own 
programs. To compress a picture file with The Compressor (the 
file-based one in Listing 1). you have to open the input and 
output files in BASIC first. The input file - the one on disk to be 
compressed - must be OPENed as file '8, and the new 
compressed file which is to be created must be file *9- For 
example, if you have a high-res picture stored on disk as a 
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program file called "design I" and you wish to make a com- 
pressed version called "designl/c". you could just use the 
following BASIC: 

open8,8,2,"design1 " 

open 9,8,1, " 0:design1 /c " : rem create PRG file 

Then, to compress the file, just execute The Compressor with 

sys49152 

Note; Notice the absence of 'comma F', 'comma R' and comma 
W after the filenames in the OPEN statements? When only a 
filename is specified (SA 2 to 14). the DOS defaults to a Read of 
ANY file type, unless Secondary Address is used - then it 
defaults to a Read of a PRG file. With Secondary Address I the 
default is ',p,w' thus eliminating the need for a filename suffix. 

After a little while (I to 2 minutes with a 15^1 drive), the disk 
files will close and the computer will come back with the usual 
READY, You now have the compressed file "designl/c" on 
disk, which should be considerably smaller than the original 
"design r\ It will give you the identical screen image, however, 
once you load it in with the de-compressor part of the program. 
To de-compress a picture, just OPEN the file for input as file *8 
and SYS 491 55, Nke this: 

open8.8,2 ."designl/c" 
sy£49155 

The picture will then be put into memory at the start address 
specified by the first two bytes in the original file (low, high), in 
other words, the picture will go in the same place as the original 
uncompressed version would if LOADed directly from BASIC. 

Version 2; Compressing A Picture From Memory 

Use Listing 2 to create the memory-based version of The 
Compressor (or load '■comp2.obi" ,8.1 from the Transactor 
disk). To use this version, you don't need to open any files from 
BASIC, Just supply the name of the file you wish to create, like 

this: 

sys 49152, "filename" 

The 8000 bytes of memory starting at $2000 (8192) will be 
saved in compressed form under the given filename. If you 
wish to save a picture from a different location. POKE the 
desired address in locations 49158 and 49159 in low, high 
format before doing the SYS. Since a high-res screen always 
falls on an 8k boundary, you will usually just POKE 49159 
(address high byte) with a multiple of 32. For example, if your 
picture is in the RAM at $E000 (The Compressor always reads 
the RAM, not ROM), you would save it with: 

poke49159,224 : rem high byl9, location SeOOO 

sys 491 52, " filename " : rem save picture as " filename " 



The Listing 2 version also uses the above method for loading a 
compressedpicture. Just use the SYS address 491 55 instead of 
49152. like this; 

sys491 55, " filename " : rem load compressed picture 

The above command will bring the picture "filename" into 
memory at the address it was originally at when saved (i,e. 
compressed). 



"Koalapainter" and 'Animation Station" Picture Files 

To produce artistic-looking work on the 64, your best bet is to 
use a graphics tablet of some kind and a ^ood graphics 
package. An inexpensive such system is the Koala Pad from 
Koala Technologies Corp-, Which consists of the Koala pad 
touch tablet and Koalapainter software. Another excellent 
software package is Commodore's Animation Station, which 
can be used with the Koala Pad touch tablet. Pictures saved 
with either of these packages go on disk as a PRG file contain- 
ing the bit-map and both colour maps for the multi-colour 
image. If you wish to use these pictures in your own program or 
just display them without using the graphics software, you can 
use the programs in listing 4 or 5 to split the picture hie into 
three LOADable modules, which may then be compressed 
with The Compressor. 

The BASIC programs '^Koala split'^ and ''Anim split" in Listings 
4 and 5 allow vou to select the start address of the bit-map and 
colour-map files which will be created from the original picture 
file saved by the graphics software. You can then LOAD these 
files directly from BASIC into whatever memory areas you 
specified and display the picture by setting up the right VlC-il 
video chip parameters. The idea, of course, is to use The 
Compressor on the 8000-byte bit-map picture file to free up 
valuable disk space and speed up retrieval of the picture. 

The "Koala split" or "Anim split" program will ask for the start 
address of the hi-res picture and the colour map, which you 
must respond to in hexadecimal. Default values are provided 
which locate the picture at SEOOO and the colour map at $CC0O 
(these are good, out-of-the-way spots). The other colour map 
resides in the Ik colour nybbles at $D800 and is not relocat- 
able. The program then asks for the filename of the picture. 
The name used here is the one that is used in the graphics 
sn/ftuore, not the actual name on disk. For example, an Anima- 
tion station picture called "design" would appear as ''pi. design" 
in the disk directory; just use "design'^ as the filename. Simi- 
larly, Koala pad files are preceded by a CHR$(I29), which 
appears as a reverse-A in the disk directory; just use the Koala 
name itself, eg. "pic a design", ''pic b house", etc. 

The split program takes quite a while to do its thing, since it has 
to copy over 10.000 bytes from one file to another, so better 
schedule a run to coincide with your next coffee break. Also. 
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make sure you hav(? enough room on your disk to accommo- 
date the three new files that will be created, requiring a total of 
40 addilional blocks. These files will be named with the 
filename you supphed as input followed by the extension 
".pic \ ^ci '\ or ^c2". The ^pic" file is the actual hi-res bitmap 
which you'll probably want to cut down to .size by unleashing 
The Compressor on it. The ".cl" hie is the relocatable colour 
map which resides at the chosen location. The".c2" file has the 
start address of $D800, where it must load into to supply the 
third source of colour information for the picture (the hrst two 
sources come from the ''.cl" hie}. 

After running the split program, you have three files which you 
can LOAD into memory, and display if you wish by appropriate 
POKES to VIC cfiip registers. To display a picture at $E000 with 
the colour map at SCCOO, the BASIC would be: 

poke53265,59:poke53272,63:poke53270,216:poke56576,0 
To return to the normal text screen, 



As with any other byte, up to 255 consecutive '254's are 
represented by a single control sequence. As you can see, a 254 
all alone or in groups of two or three will use more memory 
when compressed than uncompressed- Fortunately, that 
doesn't happen often enough to be a concern. 

The algorithm used to compress the data is quite simple: the 
bytes in the hie to be compressed are read one by one. If the 
byte just read is the same as (he one before it, a counter is 
incremented. If not, the current count is zeroed, then used to 
generate N repetitions of the previous byte, or if the count is 
greater than three, a control sequence is written (254, previous 
byte, number of repetitions), A control sequence must also be 
generated if the count ever exceeds 255, That's it! Not loo tough 
a task, even in ML, but it gets the job done! 

The decompressor is even simpler. It just reads a byte and 
stores it unchanged if it isn't a 254. If it is, the next two bytes are 
fetched and the given byte is copied into the next N memory 
locations. The process repeats until the end of hie is reached. 



poke53265,27:poke53272,23:poke53270,200poke56576,3 

{See the article "VIC Parameters" in Volume 5, Issue 6 for more 
on setting up the VIC chip registers.} Also, don't forget to 
change the background colour at 53281 to the colour indicated 
by the last byte in the picture file. 



How The Compressor Works 

There's no profound or amazing tricks used here; it's a very 
straightforward approach that seems to work pretty well in 
practical use. The compressor just looks at each byte and 
compares it to the previous one. If it finds more than three 
bytes in succession which are the same, instead of storing that 
many bytes, it just stores a special control byte (arbitrarily 254) 
followed by the byte which is to be repeated and the number of 
repetitions. As an example, an uncompressed file containing 
these bytes: 

10 196 202 15 15 15 15 15 15 15 15 15 15 15 32 76 

Would be compressed as: 

10 196 202 254 15 11 32 76 

The first three bytes are copied verbatim, but the group of 
eleven 15s is represented by the control sequence '254 15 U', 
Groups greater than 255 bytes long are represented by more 
than one control sequence. But what happens when a single 
254 is encountered in the file? That is easily handled by the 
control sequence: 

254 254 1 



Other Applications 

So far, you've seen that the compressor can be used with 
ordinary high-res or multi-colour pictures, even those created 
by commercial graphics software. But really, there's nothing 
that says The Compressor can only compress picture informa- 
tion. Any data that are stored as a SEQ or PRG hie on disk and 
are likely to contain repetitions of a single byte can beneht by 
being compressed. BASIC programs are not very good candi- 
dates for compression, but a long text file containing many 
spaces, or a sequential database with many blank records 
might be. Sprite dehnition hies are perfect- 
Using The compressor with high-res pictures, though, adds a 
new dimension to graphics. The smaller and less detailed your 
pictures are, the less space they'll take on disk. In other words, 
there's a linear relationship between the physical size of a 
picture on the screen, and the size of it in terms of disk blocks - 
providing that the unused portions of the screen are blank. 
With the compressor at your disposal, you may be more willing 
to use small pictures or simple sketches in situations where an 
entire 32 block picture file would be just too expensive (in 
terms of disk space and loading time) to be worthwhile. After 
all, just because a picture is worth a thousand words doesn't 
mean it has to take up 8.000 bytes. 
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Listing 1: BASIC program to create "compl.obj" file on disk. This 
version will create a compressed disk file from an existing file. The 
first two bytes of the file must be the load address. To use the 
program, load " compl .obj \8, 1 , then OPEN file *8 as the input hie 
and file *9 as the output file. SYS 49152 to compress the file. To 
load a compressed file, open the hie as *8 for input, (hen sys49155. 



Listing 2: BASIC program to create machine-language program 
"comp2.obj" on disk. "comp2,obj" will compress a high-res pic- 
ture in memory (default location $2000) and store it on disk under 
the specified filename. 



AK 

LI 
BG 

IE 

KA 

FJ 

OF 

Al 

NC 

IN 

FB 

LB 

LH 

KL 

NE 

KD 

MH 

JJ 

LJ 

HG 

EJ 

JA 

GP 

Jl 

CJ 
GJ 
KJ 
DP 
LO 
MK 
FC 
BA 
PJ 
KB 
EO 
LD 
GO 
EF 
BB 
JN 
LC 
LP 
HF 
BJ 



1 rem* file creator for " compl .obj " * 
20 cs = 

30 for i = 491 52 to 4941 8:read a:cs - cs + a, next 
40 If CS037827 then print " Idata error! " : stop 
50 open 1 ,8,2, " @0:comp1 .obj.p,w " 
60 print#1 ,chr$(0)chr${1 92),: rem $c000 
70 restore 

80 for i = 1 to 267:read a:print#1 ,chr$(a);:next 
90 close 1 
100 

1000 data 76, 10,192, 76, 40,192, 1, 
1010 data 0, 0, 32,243,192, 32,228,255 
1020data 32,255,192, 32,210,255, 32,243 
1030datal92, 32,228,255, 32,255,192, 32 
1040 data 21 0,255, 32, 72,192. 76, 58,192 
1050data 32,243,192, 32,228,255,133,251 
1060 data 32,228,255,133,252,160, 0, 32 
1070data200, 192, 32,204,255,169, 8. 32 
1080data195, 255, 169, 9, 32,195,255, 96 
1090data 32,243,192, 32,228.255,141, 8 
11 00 data 192, 32, 93,192,173, 9,192,240 
11 10 data 248, 32.174,192, 96, 32,243,192 
1120 data 32,228,255, 72, 32,183,255,141 
1130 data 9, 192, 104,141, 7,192,205, 8 
1 1 40 data 1 92, 208, 1 4, 238, 6. 1 92, 208, 6 
11 50 data 206, 6,192, 32,174,192, 76,167 
1160 data 192, 173, 6,192,201, 6,176, 28 
1 1 70 data 1 70, 1 73, 8. 1 92, 201 , 254. 240, 20 
lieOdata 32,255,192.173, 8,192. 32,210 
1 190 data 255, 202, 208, 250, 1 69, 1,141, 6 
1200 data 192, 76,167.192, 32,174,192,173 
1210data 7,192,141, 8,192, 96, 32,255 
1220data192, 169, 254, 32,210,255, 173, 8 
1230 data 192, 32,210,255,173, 6,192, 32 
1240data210, 255, 169, 1, 141, 6,192, 96 
1250 data 32,228,255,201,254,240, 6, 32 
1260 data 234, 192, 76,228,192, 32,228,255 
1270 data 72, 32,228,255,170,104, 32,234 
1 280 data 192, 202, 208, 250. 32, 1 83, 255. 240 
1 290 data 223, 96, 1 45, 251 . 230, 251 , 208, 2 
1300 data 230, 252. 96, 72.138, 72,162, 8 
1310 data 32,198,255,104,170,104, 96, 72 
1320data138, 72,162, 9, 32,201,255,104 
1330data170, 104, 96 



DK 

Ml 

CG 

GC 

NG 

BM 

BG 

00 

JL 

FJ 

OF 

GH 

NC 

IN 

El 

LN 

JF 

KM 

08 

KH 

DF 

MD 

KH 

GG 

KH 

MG 

JN 

BM 

FO 

HN 

LB 

lA 

BK 

NB 

KE 

NH 

OH 

NB 

BB 

DC 

GP 

DE 

NP 

00 

NL 

EJ 

Fl 

JK 

BH 

NB 

DG 

KF 

NP 

PK 

DK 

MP 

DB 



10 rem* file creator for "comp2.obj" - 

20cs = 0:q$ = chr${34) 

30 for i = 491 52 to 49493:read a:cs = cs + a:nexl 

40 if CSO45400 then print " Idata error! " : stop 

41 prinf'nto compress pic at $2000: 

42 print" sys491 52, " q$ " filename 

43 prinf'Hto load compressed picture: 

44 print" sys491 55, " q$ " filename " 
50 open 1 ,8.1 , " @0.comp2,obj " 
60print#1,chr${0)chr${192);: rem ScOOO 
70 restore 

80 for i = 1 to 342;read a:print#l ,chr$(a)i:next 
90 close 1 
100: 

lOOOdata 76, 15,192, 76. 24.192, 0, 32 
lOIOdata 1, 0, 0, 0, 0, 0, 0, 169 
1020data 1,141, 11,192,160, 1,208, 7 
1030data169, 0, 141, 11, 192, 160, 2, 165 
1040data 1,141, 12,192,169, 8,170, 32 
1050 data 186, 255, 32,253,174, 32,158,173 
1060data 32,143,173,160, 0.177,100, 72 
1070 data 200, 177, 100,170,200.177,100,168 
1080 data 104, 32,189,255, 32,192,255,162 
1090 data 8,160, 0,173, 11,192,240, 21 
llOOdata 32,201,255,173, 6,192, 32,210 
11 10 data 255. 173, 7,192, 32,210,255, 32 
1120data126, 192, 76,117,192, 32,198,255 
1130data 32,228,255,133,251, 
1140data133, 252, 32, 42,193, 
11 50 data 169, 8, 32, 195,255, 
1160data192, 133,251, 24,105, 
1 1 70 data 1 92, 1 73, 7, 1 92, 1 33, 252, 1 05, 31 
1180data141, 14,192, 32, 24,193,141, 10 
11 90 data 192, 160, 1, 32,179,192,165,252 
1200 data 205, 14,192,208, 8.165,251,205 
1210 data 13,192,144,239, 96,144,236, 32 
1220data 6,193, 96, 32, 24,193,141, 9 
1230 data 192, 205, 10,192,208, 19,238, 8 

11,206, 8,192, 32, 6 
1,141, 8, 192, 76,249 
8,192,201, 4,176, 25 
10,192,201,254,240, 17 
1280data173, 10,192, 32,210,255,202,208 
1290 data 247, 169, 1, 141, 8,192, 76,249 
1300data192, 32, 6,193,169, 1,141, 8 
1310 data 192, 173, 9,192, 141, 10,192,230 
1 320 data 251 , 208, 2, 230, 252, 96. 1 69, 254 
1330 data 32,210,255,173, 10,192, 32,210 
1340 data 255, 173, 8,192, 32,210,255, 96 
1 350 data 1 20, 1 65, 1,41, 252, 1 33, 1 , 1 77 
1360data251, 72,173, 12,192,133, 1, 88 
1370data104, 96, 32,228,255,201,254,240 
1380 data 1 1 . 1 45, 251 , 230, 251 , 208, 2, 230 
1390 data 252, 76, 80,193, 32,228,255, 72 
1400 data 32,228,255,170,104, 145,251,230 
1410 data 251 , 208, 2, 230, 252, 202, 208, 245 
1420 data 32,183,255,240,213, 96 



32, 228, 255 
32, 204, 255 
96, 1 73, 6 

64,141, 13 



1240 data 192, 208, 
1250 data 193, 169, 
1260data192, 173, 
1270data170, 173, 
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Listing 3: BASIC program which uses "compLobj" lo cam- 


Listing 4: "Koaia sp it". This program wi take a Koa apainter 


press or de-compress a hi-res picture fi e. The code i usirates 


Mcture fi e and create three LOAD-able program h es which 


how to use The Compressor 


contain the bitmap and coour maps. The slart address of the 




bitmap and one colour map is re ocatable. 




NP 


100 rem* compress or de-compress * 


L ■ 




EG 


110 rem* ahigh-res pclureondisk * 


XM 


100 rem* "koaaspit" 




MO 


120: 


JM 


1 1 rem* sp it a koa apainter picture 




MB 


130 f a = thenar 1:oad"comp1. obj'\8,1 


GA 


1 20 rem* fi e into 3 oadab e prg fi es 




PC 


135 open 15,8,15: rem error channe 


GP 


130: 




LL 
ED 

D 


1 40 print " ^^JSelect one: 

150 print ^ Hi) Compfess a picture fi e 

1 60 print " 2) Load in a compressed fi e 


1 HL 

: JC 

1 


140z$-chr$(0): open 15.8,15 


1 50 input " BaBBIstart of hi-res picture 3 spaces] 


e000[7 efts " ;h$ 




GE 


170geta$:ita$<>"1 "anda$<>^2^then170 


1 

|CD 


160 gosub 1000: if er then print "0" ::goto150 




EP 


1 80 rem bring in 'Ihie compressor' 
1 90 input -flpicture fi ename ■■ ;f1 $ 


! A 


1 70 p - : ph - h 


1 


BF 


KO 


1 80 input " start of co our map[7 spaces] 




LK 


200 If a$="^ 2 "then 330 




cc00[7 efts ■■ ;h$ 


1 
1 

1 


GE 


210: 


: AF 


190 gosub 1000: if er then print "0" ::goto150 




H 


220 rem* create compressed f e * 


FO 


200 c -l:ch-h 




ED 


230 input " name for new compressed file " ,f2$ 


D 


210 inpuf'Hfi ename of koala fie" :f$ 




AH 


240 open 8, 8.2, f1$ 


FJ 


220 open1 ,8,12, eft$(chr$(129) + f$ + 




N 


250 gosub 400: rem check for disk error 


' 


"[12 spaces ",15) 




E 


260 open 9,8.1, "'0: '"+12$ 


CP 


230 gosub 2000: rem checi^ for disk error 




BK 


270 gosub 400: rem check for disk error 


DL 


240get#l,a$,b$ 


1 


' BG 


280sys49152. rem compress fie 


PA 


250open2,8,11,"@0:" +($+ ",pic,p,w" 




LF 


290 print" new picture fie now on disk" 


AB 


260 gosub 2000: rem check for disk error 




MC 


300 end 


FH 


270 print#2,chr$(p)chr$(ph); 


1 


KK 


310: 


GB 


280fon = 1to8000:get#1,a$:prim#2, efi$(a$ + z$,1); 




CE 


320 rem* oad compressed tie * 


1 1 


:next 




, KM 

1 


330 open 8. 8, 2, f1$ 


IP 


290 ciose2 




■HO 


340 gosub 400: rem check for disk error 


KF 


300open2,8,11,"@0:" +f$+ ".c1,p,w'' 




PM 


350 sys 491 55: rem de-compress fi e 


CE 


31 pr nt#2,chr$(c )chr$(ch); 




HJ 


360 print" picture now in memory." 


ME 


320 gosub 2000: rein check for disk error 




CH 


370 end 


DD 


330 fori = 1 tol 000:gel#1 ,a$:print#2, eft$(a$ + z$,1 ); 




AP 


380: 




:next 




LP 


, 390 rem* get disk status subroutine * 


KC 


340 close2 




. LL 


j 400input#15,a$,b$,c$,d$ 





350 open2,8,11, " @0: " +f$+ " .c2,p,w" 




P 

1 


; 410 if vaKa$)then print "BBJdisk error: " a$" . 


CN 


360 print#2,chr$(0)chr$(216);: rem colour nybbes 






■'b$"/'c$","d$:end 


OH 


370 gosub 2000: rem check for disk error 


1 


AM 


, 420 return 


FG 
MF 


380 foh = 1to1G00:get#1 ,a$:print#2, eft$(a$ + z$,1); 

:next 
390 close2 










CG 


400 prinfffiBlhe background coour is:': 




LO 


41 get#1 ,a$: printasc(a$ + z$) 




AA 


420cose1: coselS 




OK 


430 end 




MC 


440: 




FP 


1000 rem' convert hex f$ to dec h, * 




FG ; 


1005 er = 




JK : 


lOIOi en(h$)<>4thener=1:return 




K i 


1 020 d = a:fori = 1 to4:h = asc(m d${h$,i))-48 
:d-d'16 + h-t-7*(h>9):next 




NO 


1030h-int(d)/256: =d-h*256 




MC 


1040 return 







1050: 




FE 


2000 rem* get disk status subrout ne * 




FA 


2010input#15,a$,b$,c$,d$ 




JN 


2020 if va (a$}then print " BBIdisk error: " a$ " , 
"b$","c$","d$:end 




KA 


2030 return 
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Listing 5; "Anim spiit\ Performs the same function as Koala Listing 6: The assemb y-code source listing for the version 1 


sp It above, but for ''Animation StaMon" files. compressor. 

I 1 




F 


100 rem* "anim spit' * 


BD 


1 00 sys700 ;enab e pal 64 




BE 


110 rem* converts a picture fi e * 


EO 


110; 




NL 
LA 


1 

120 rem* created by the animation * 
130 rem* station into3 oadabe * 

— W 1 


DO 
OJ 
NK 


120 ; picture compressor - 
130 ; optimizes hi-res picture 
140 ; and saves on disk 




PC 


140 rem* prgfies. • 


C 


1 50 ; this version converts fife#e (r) 




KA 


150: 


AK 


1 60 ; to f 1 e#9 (w) with same load addr 




LM 
ND 


160z$ = chr$(0V open 15,8.15 


DM 
JC 
ED 


7 \ r 

170;sys(*) compresses 8 to 9 
1 80 ; sys(f + 3) loads 8 to memory 
190; 


1 70 input "EBBIstart of hi-res picture[3 spaces] 


e000[7 efts]";h$ 




OE 


180gosub 1000: if er then print '■^^:goto1 70 


MF 


200 ;save " @0:Gomp1 .pal " .B 




MB 


90 p = : ph = h 


IE 


210; 




OP 


200 input " start of colour map[7 spaces 


EE 


220 opt 00 






CC00 7 efts]\h$ 


HN 


230 * = $cO00 




MG 


210 gosub 1000: if erlhen pnnfH" ;:golol70 


GG 


240; 




JP 


220 cl= :ch = h 


ON 


250 jmp compress 




LK 
CD 


230 input "flifilename of animation station fi e " ;f$ 
240open1,8,12/0:pi." +!$+ \p,r" 


PH 
E 


260 jmp decomp 
270; 

—J- -■- -■- 1 J ■ J 




GA 
HM 
DC 


250 gosub 2000: rem check or d sk error 
260get#1,a$,b$ 
270open2,8,11,"@0:'' + $+ "-pic,p,w" 


oc 

IN 
NL 
KG 


2S0repcount ,byte 1 
290newbyt .byteO 
300prevbyt byteO 
310st8 .byleO 




PH 


280 pnnt#2,chr$(p)chr$(ph); 


GL 


320; 




DC 


290 gosub 2000: rem check for disk error 


NP 


^ r 

330 picptr = $fb 




KC 


300 fori - Ho8000:get#1 .a$:print#2Jeft$(a$ -fzS.I). 


FC 


1 1 

340 jkerne routines: 






:next 


! FI 


350 chrout = $ffd2 




BM 


31 fori =1to192:geti^1,a$:next: rem get extra 


OE 


360 getin = $ffe4 






use ess bytes 


PL 


370 close = $tfc3 




GB 


320 c ose2 


K 


380 chkout = $ttc9 




H 


330open2.8,1i;^@0;" + $+".c1.p.w" 


OA 


390chkjn = $ffc6 




AG 


340 prfnt#2.chr${cl)chr$(ch); 


MH 


400clrchn = Sffcc 




HE 


350 fori = 1tol000:get#1,a$:prnt#2,eft$(a$ + z$,1); 


FI 


410readst = $ffb7 






:next 


KB 


420; 


1 


JB 

E 
MK 


360 fori = 1 to24 get# 1 ,a$:next 

370 c ose2 

380open2,8,11/@0:" +f$+ " .c2,p,w'' 


PB 

N 

PC 

OR 


430 compress = * 

440 jsr setin 

450 jsr getin ;start addr lo 

460 jsr setout 
470 jsr chrout 




AP 


390print#2,chr${0)chr$(216):: rem coour nybbes 


NK 




JH 


400 fori = 1to1000'gel# ,a$:print#2, eft${a$ + z$,1); 


V 1 ^ 

AA 


480 jsr setin 






:next 


ND 


490 jsr getin ;start addr hi 




LE 


410 fori = 1to24get#1,a$:next 


KD 


500 jsr setout 




KH 


420 c Qse2 


FN 


510 jsr chrout 




FE 


430 print "BBlThe background colour is: " 


JB 


520 jsr sendpic ;send picture to file 




JA 


440 get#l ,a$: prinlasc(a$ -+- z$) 


PI 


530 jmp fin 




OB 


450cose1: cose15 


CJ 


540; 




MM 


460 end 


GN 


550 decomp = * 




KE 


470: 


AF 


560 sr setin 




AH 


1000 rem convert hex t$ to dec hj 


HO 


570 jsr getin: sta picptr ;load addr lo 




FG 


1005 er-0 


CL 


580 jsr getin; sta picptr+ 1 ; hi 




JK 
K 


1 01 if len(h$)<>4then er = 1 :relurn 
1020d'0:fon-llo4:h-asc(mid$(h$,i))-48 


JJ 

NF 

N 

FB 


590 dy #0 

600 jsr getpic ;get picture 

610; 

620 fin = * 






:d = d*16 + h-f7*{h>9);next 




NO 


1030h = int{d)/256: =d-h'256 


NH 


630 jsr clrchn 




MC 


1040 return 


IC 


640 Ida #8; jsr close 







1050: 


ED 


650 Ida ^9: jsrcose 




FE 


2000 rem* get disk status subroutine * 


Al 


660 rts 




FA 


2010input#15,a$.b$,c$,d$ 


EB 


670; 




JN 


2020 ifva(a$)then print "BBIdisk error: "a$\ 


OB 


680; 






"b$',''c$","d$:end 


NK 


690 sendpic = * 




KA 


2030 return 


MN 


700 jsr setin 
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IL 


710 


jsr getjn 




KA 


1350 


sta repcount 


;re-initiali2e count 




Bl 


720 


sta prevbyt 




MD 


1360 


rts 






LN 


730 nextout 


= # 




AN 


1370; 








G 


740 


jsr out byte 




KN 


1380; 




, 




JP 


750 


Ida st8 




BE 


1390getpic 


= * 


; uncompress 




OP 


760 


beq nexiout 




KG 


1400 


jsr getin 






OP 


770 


jsr wnlerep 


;last sequence 


BO 


1410 


cmp #254 


;rep indicator 




IP 


780 


rts 




HH 


1420 


beq get rep 






Ml 


790; 






EM 


1430;norma byte, just store it 






GJ 


800; 






PA 


1440 


sr storbyt 






FC 


BlOoulbyte 


= • 




AJ 


1450 


jmp gpfin 






EF 


820 


jsr setin 




KC 


1460; 








AD 


830 


jsr getin 




HL 


1470getrep 


= • 


;repeat byte n times 




EM 


640 


pha 




EM 


1480 


jsr getin 


;byte to repeat 




AB 


850 


jsr readst: sta st8 ;save status 


OE 


1490 


pha 






EG 


860 


pa 




MP 


1500 


jsr getin 


;# of repetitions 




Nl 


870 


sta newbyt 




BL 


1510 


tax 






IC 


880 


cmp prevbyt 




IH 


1520 


pla 






IC 


890 


bne dift 




PF 


1 530 rep p 


= « 






KP 


900; 






GC 


1540 


jsr storbyt 


;stick it in memory 




BC 


910 


inc repcount 




FM ■ 


1550 


dex 






MA 


920 


bne ok 


;count past 255"? 


DH 


1560 


bne replp 


;do it .X times 




AB 


930 


dec repcount 




IJ 


1570; 








CK 


940 


jsr wrjterep 


;wrjte rep code 


NG 


15S0gpfin 


= * 






JK 


950 ok 


^ * 




AL 


1590 


jsr readst 


;check disk status 




CJ 


960 


jmp obfin 




GG 


1600 


beq getpic 


;do until end-of-file 




AE 


970; 






GD 


1610 


rts 






CL 


980 diff 


= * 


:new byte different 


KM 


1620; 








BF 


990 


Ida repcount 




EN 


1630; 








EC 


1000 


cmp #6 




EE 


1640 3torbyt 


= • 


;put.a in memory 




ME 


1010 


bcs docode 


;more than 4 the same " ? 


HD 


1650 


sta (picplr),y 






JG 


1020 ;no, just print byte n limes 




KL 


1660 


inc picptr 


;increment pointer 




CO 


1030 


tax 


;# reps for oop 


PG 


1670 


bne sbO 






D 


1040 


Ida prevbyt 




NL 


1680 


inc picptr + 1 






DD 


1050 


cmp #254 


;ctrlbyte^? 


AN 


1 

1690 sbO 


n * 






CB 


1060 


beq docode 


;yes, have to code it 


AJ 


1700 


rts 






EK 


1070; 






EC 


1710; 








OH 


1080 


jsr setout 




OC 


1720; 








FL 


1090 


Ida prevbyt 




EB 


1 730 setin 


±^ * 


;set input to fie #8 




GB 


11 00 nip 


= • 




MO 


1740 

1 


pha:txa:pha 






NO 


1110 


jsr chroul 




NC 


1750 


Idx #8 






HB 


1120 


dex 




LN 


1760 


jsr chkin 






CM 


1130 


bne nip 




JD 


1770 


pla;tax:pla 






IE 


1140 


Ida #1: sta repcount 


AG 


1780 


rts 






AF 


1150 


jmp obfin 




EH 


1790; 








OP 


1160; 






OH 


1800; 








NC 


1 1 70 docode 


= t 




1 

Fl 1 


1810 setout 


= « 


;set output to fi e #9 




PI 


1180 


jsr writerep 




MD 


1820 


pha:txa:pha 






MB 


1190; 






PH 


1830 


dx #9 






HN 


1200obfin 


= • 




CP 


1840 


jsr chkout 






DK 


1210 


Ida newbyt 




Jl 


1850 


pla:tax:pa 






FH 


1220 


sta prevbyt 




AD 


1860 


rts 






KL 
OE 


1230 
1240; 


rts 




KC 


1870 end 










IF 


1250; 
















DN 


1260writere[: 


) = ♦ 


;write repeat code 












MD 


1270 


jsr setout 














KG 


1280 


da #254 


;speciaJ control byte 












80 


1290 


jsr chrout 














BJ 


1300 


Ida prevbyt 


;byte to repeat 












FP 


1310 


jsr chrout 














PO 


1320 


da repcount 


;numberof reps 












JA 


1330 


jsr chrout 














JC 


1340 


Ida #1 













TTw Trc]nsack>r 
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Listing 7: Memory-based version of The Compressor 


CM 


710 


Ida ($64),y 


;string length 






GG 


720 


pha. iny 










iber 


PL 
JM 


730 
740 


Ida ($64),y 
tax: iny 


;string addr low 




NH 


1 00 sys 700 ;activale pa 64 assen 




IN 


110 ; picture compressor 




F 


750 


Ida ($64), y 


;stringaddr hi 




M 


120 ; oplimizeshi-respic 




Jl 


760 


lay: pa 






DK 


r ' 

130 ; and saves on disk 




00 


770 


jsr setnam 


;filename = above string 




KC 


1 40 ; this version saves from memory 


LJ 


780 


jsr open 


;openfile 




LJ 


150; at $2000: 




FA 


790 


Idx #8 


;file#8torchkin/oul 




JE 


160 ;sys(-), "d;fiename " 




GJ 


800; 






, 


OH 


170 ; or loads to load addr: 




FH 


810 


Idy #0 






IE 


180;sys(" + 3),'"fiename " 




FN 


820 


Ida sendflag 


; com press or load 




ED 


190; 




10 


830 


beq nosnd 


;nosnd = load 




AG 


200 ; save " @0 comp2,pal " ,8 




AK 


840 


jsr chkout 


;outputtofile 




E 


210; 




NH 


850 


Ida picture 






EE 


220 opt GO 




DB 


860 


jsr chrout 


;start addr lo 




HN 


230 • = $c000 




KG 


870 


Ida picture +1 






GG 


240 ; 




HB 


880 


jsr chrout 


jstartaddrhi 




ON 


■ — ' ^-^ 1 

250 jmp compress 




LI 


890 


jsr sendpic 


;send picture lo file 




PH 


260 mp decomp 




AO 


900 


jmp ssl 


;close files and exit 




E 


270; 




PP 


910 nosnd 


= * 






JJ 


280 picture v^ord $2000 


.bitmap loc^n 


Dl 


920 


jsr chkin 


;get oad addr first 




DN 


290 repcount byte 1 


.counts repetition 


EJ 


930 


jsr getin 






BP 


300newbyt byteO 


icurrentmem byte 


JP 


940 


sta picptr 


;load addrlo 




El 


310prevbyt .byteO 


; previous byte 


IK 


950 


jsr getin 






Dl 


320sendflag .byteO 


;comp/decompf ag 


DC 


960 


sta picptr +1 


iloadaddrhi 




MH 


330banksav byte 


;orig oc 1 va ue 


PM 


970 


jsr getpic 


;get picture 




HN 


340endpic word 


;end ot bitmap 


BE 


980 ssl 


B * 






EN 


350; 




EF 


990, 








KA 


360 pic en = 8000 


; bitmap byte length 


JA 


1000 


jsr c rchn 


;clear i/o channels 




EC 


370 picptr = $fb 




NO 


1010 


da #8 






NE 


1 380 ;kernel routines: 




DF 


1020 


jsr close 


;c ose file #8 




PK 


390 setlts = $tlba 




M 


1030 


rts 


;all finished! 




CK 


400 setnam = $f1bd 




G 


1040; 








JN 


410 open = StfcO 




AJ 


1050; 








LM 


420 chrout = $ffd2 




CP 


1060sendpic = * 


; com press picture 




EJ 


430 9etin = $ffe4 




EN 


1070 


da picture 


;start addr lo 




FA 


440 cose = $11c3 




BM 


1080 


sta picptr 






AN 


450 chkout = $ffc9 




L 


1090 


cic 






EF 


460 chkin = $ffc6 




AL 


1100 


adc #<piclen 


;find last pic byte 




CM 


470clrchn = $ffcc 




CO 


1110 


sta endpic 


;last byte lo 




LM 


480readsl = $1tb7 




EG 


1120 


da picture + 1 






AG 


490; 




HE 


1130 


sta picptr + 1 


;start addr hi 




FG 


500 compress = • 




AD 


1140 


adc #>piclen 






LO 


510 Ida #1 




MD 


1150 


sta endpic + 1 


;Iast byte hi 




CN 


520 sta sendflag 




OP 


1160; 








NK 


530 dy #1 


;secondary address 


D 


1170 


jsr getbyt 


;read byte from mem 




EB 


540 bne cp1 




BD 


1180 


sta prevbyt 


; initialize prev byte 




MJ 


550: 




CK 


1190 


Idy *1 


;get2nd byte next 




AO 


560 decomp = * 




GC 


1200; 








PC 


570 Ida #0 




LL 


1210nextout 






OA 


580 sta sendflag 




MP 


1220 


jsr out byte 


;fetch byte or group 




LO 


590 dy #2 


; secondary address 


EE 


1230; 








MJ 


600 cpl = 


* 


BE 


1240 


da picptr + 1 


;see if at pic end 




N 


610; 




CK 


1250 


cmp endpic + ' 






GN 


620 da 1 


;bank select reg 


EP 


1260 


bne spl 






DH 


630 sta banksav 


;store tor later 


BE 


1270 


da picptr 






IL 


640 Ida #8 


;file #8 


EL 


1280 


cmp endpic 






BK 


650 tax 


,device #8 





1290 


bcc nextout 


;do next byte 




KJ 


660 jsr set f s 


;open8,8J or 2 


AA 


1300 


rts 






AJ 


670 isr $aefd 


;check for comma 


C 


1310 spl 


= * 






MG 


680 jsr $ad9e 


;evaluate expression 


MK 


1320 


bcc nextout 


;do next byte 




PB 


690 jsr $ad8f 


;check tor string 


PO 


1330 


jsr write rep 


;write iast group 


— 


HA 


700 Idy #0 


53 


PJ 1340 


rts 


;all bytes done 





ML 


1350; 








N 


1990 


and 


#$fc 


;.select ram 




GM 


1360; 








HK 


2000 


sta 


1 






PH 


1370outbyte 


= 


• 


;check next byte 


CD 


2010 


Ida 


(picptr),y 


;read byte 




FF 


1380 


isr 


get by t 


;read byte from mem 


AG 


2020 


pha 








FJ 


1390 


sta 


new by t 




GB 


2030 


Ida 


banksav 


;gelorigina state 




FL 


1400 


cmp 


prevbyt 


;compareto previous 


CI 


2040 


sta 


1 


;and restore 




CB 


1410 


bne 


dift 


;different'? 


AJ 


2050 


cli 








CA 


1420; 








EJ 


2060 


pla 








BL 


1430 


inc 


repcount 


;same, inc count 


CA 


2070 


rts 








HG 


1440 


bne 


ok 


;>255 repetitions'? 


GJ 


2080; 










DJ 


1450 


dec 


repcount 


;setta255 


AK 


2090; 










AE 


1460 


jsr 


writerep 


;wrile repeat code 


HA 


2100getpic 


^ 


• 


; uncompress 




LH 


1470 


Ida 


#1 


; re start count 


AD 


2110 


jsr 


getin 






JH 


1480 


sta 


repcount 




HK 


2120 


cmp 


#254 


;rep indicator 




FM 


1490 ok 


= 


V 




nd; 


2130 


beq 


getrep 






JJ 


1500 


jmp 


obfin 


;finished outbyte 


Kl 


2140 ;norma 


byte, just store it 






MF 


1510; 








LC 


2150 


sla 


(picptr), y 






OM 


1520 diff 


= 


« 


;new byte different 


FF 


2160 


inc 


picptr 


; next address 




FO ; 


1530 


Ida 


repcount 


jCheck count 


HH 


2170 


bne 


grO 






HJ 


1540 


cmp 


#4 


;3 or more the same"? 


BL 


2180 


inc 


picptr + 1 






AC 


1550 


bcs 


decode 


;yes, send rep code 


MN 


2190 grO 


s; 


* 




i 
1 


Fl 


1 560 ;no, just print byte n times 




OH 


2200 


jmp 


gpfin 






OP 


1570 


tax 




;# reps for loop 


IB 


2210; 










JK 


1580 


Ida 


prevbyt 


; byte to repeat 


AL 


1 

! 2220 getrep 


■ ■■■I 


• 






PE 


1590 


cmp 


#254 


,ctr byte"? 


CL 


2230 


jsr 


get in 


;byTeto repeat 




FG 


1600 


beq 


decode 


,yes, must code it 


MD 


2240 


pha 








AM 


1610; 








KO 


2250 


jsr 


getin 


;# of repetitions 




ED 


1620 nip 


= 


* 

1 


.repeat loop 


PJ 


2260 


tax 








BN 


1630 


Ida 


prevbyl 




GG 


2270 


pla 








AO 


1640 


jsr 


chroul ; 


.send byte 


CE 


2280 repip 


= 


4 


;repealbyte n times 




LI 

1 


1650 


dex 


1 


,do x times 


^ HI 


2290 


sta 


(picptr), y 






EN 


1660 


bne 


np 




; BO 

1 


2300 


inc 


picptr 


; next address 




, DE 


1670 


Ida 


#1 ; 


.restart count 


GA 


2310 


bne 


gri 






BE 


1680 


sla 


repcount 




ND 


2320 


inc 


picptr + 1 






FA 


1690 


jmp 


obfin ; 


finished subrtn 


MG 


2330 gri 


= 


• 






KB 


1700; 








LN 


2340 


dex 








10 


1710docode 


^ 


fc 

1 


write repeat code 


MP 


2350 


bne 


repip 






LK 


1720 


jsr 


writerep 




OK 


2360; 










PH 


1730 


Ida 


#1 


;restart count 


D 


2370 gpfin 


^ 


* 




! 


NH 


1740 


sta 


repcount 




EF 


2380 


jsr 


readst 


;read disk status 




ME 


1750; 








MH 


2390 


beq 


getpic 


,do until end-of-fie 




HA 


, 1760obfin 


t^ 


« 




ME 


2400 


rts 








DN 
CK 


1770 
1780 


Ida 
sla 


newbyl 
prevbyl 


;pFev = new 


GE 


2410. end 












DO 


1790 


inc 


picptr ; 


; next address 














AP 


1800 


bne 


obi 
















PD 


1810 


inc 


picptr + 1 
















OE 


1820 obi 


^ 


* 
















CB 


. 1830 

1 


rts 
















1 


GK 


1840; 




















AL 


i 1850; 

1 ■ 




















LC 


' 1860writerep 


= 


• 


write repeat code 














IL 


. 1870 


Ida 


#254 ; 


ispecial control byte 














PC 


i 1880 


jsr 


chroul 
















PN 


' 1890 


Ida 


prevbyt ; 


.byte to repeat 














DE 


1 1900 


jsr 


chroul 
















ND 


; 1910 


Ida 


repcount ; 


.number ef reps 














HP 


; 1920 


jsr 


chrout 














: 


GH 


1930 


rts 


















KA 


1940; 




















EB 


1950; 




















AN 


1960getbyl 


^ 


# 
















MK 


1970 


sel 




idlsable interrupts 














DN . 


1980 


da 


t 


.cpu bank register 














Tha Trcintoctor 






53 










Vtilume6,luue04 



Indestructible Variables 



Tom Hall 
Zephyr, Ontario 



Remember ^'SuperNumbers"? Well, this is different. SuperNumbers was published in Volume 6, Issue 01. It 
presented a program that created a whole new type of variable that was impervious to NEW, CLR, or 
anything short of tampering with their memory space. The following protects the regular everyday 
variables were all familiar with. How many of you have written a program. RUN it, and noticed 
something you want to change. Enter an age old dilemma: "If I stop and edit that, 1 lose all my variables, 
but if I don 't make the change my program will continue incorrectly Hmmm. "At this time I would like to 
say Thank You Tom Hall for eliminating one more classic struggle. - KarlJ.H. Hildon 



Wouldn't it be nice if all variables, including arrays, were inde 
struclible. Weil, here is my solution - a utility program which does 
just that. To fully understand how it is possible to keep your 
variables from being destroyed one must first look at how they are 
stored and how BASIC inserts, changes, or deletes a line when you 
press relurn. 

The variables are kept in line by a series of pointers extending 
from $2d-$34. The address at ($2d) points to the end of your 
program and lo the start of variable storage. The end-of- 
variables/start-of-arrays is pointed to by ($2f). the end-of-arrays 
by ($31) and the bottom of string storage is determined by ($33) 

When BASIC senses that you have pressed RETURN it checks to 
see if whatever was on the line started with a number. It it does 
then BASIC clears all variables (by making their pointers equal to 
the end-of-program pointer), searches for and deletes the line 
indicated by the line number, tokenizes the new line, and inserts 
the new line into your program if anything was after the line 
number- 
Now hold on a second, what if we intercept BASIC when it goes to 
change a line and somehow make it move the variables up and 
down at the same time as it is shifting parts of your program 
around. Well that is almost exactly what 1 did. 

The system vector at {$0302}, called WARMSTART normally 
points to a routine in the ROMs which decides whether you want 
to change a line or execute a direct mode command such as RUN. 
By changing this vector to point at my program if can decide if it is 
necessary to shift the variables with the program. I use a flag that I 
will call "variables shifted flag" to signal when the variables are to 
be moved around. What specifically happens is the following. 

My program waits for you press RETURN and then checks for a 
line number. If it does not find one then a direct mode command 
(or RETURN on a blank line) is assumed and control is passed back 
to the ROMs. Otherwise, assuming the 'Variables shifted flag" was 
not set, the following occurs. All of those pointers previously 
mentioned are put away in temporary storage. Then the end-of- 
program pointer Is moved up to equal the end-of-arrays pointer. 
Now when BASIC moves parts of your program around the 
variables will all float up and down with it. The 'Variables shifted 
flag" is now set and control is given back to the ROMs. 



The next time BASIC is ready for a line it again vectors through to 
my program. This time however the ^Variables shifted flag" is set 
and the variable pointers must be recovered before anything is 
allowed to happen. This is done in the following manner. 

The "variables shifted flag" is cleared and the previously stored 
end-of-program pointer is subtracted from the present end-of- 
program pointer. This gives us the difference between the old 
position of the variables and their new position. This difference (it 
may be positive or negative) is then added to each of the stored 
pointers (except for the string pointer) in turn and then they are put 
hack into their usual locations at $2d-$32. The string pointer is 
simply replaced with its old value since it was not involved in the 
shifting but it was made equal to the top of memory pointer by 
BASIC. Now everything is as it was before you modified your 
program. All of your variables, strings and arrays are intact. 

You may restart your program by a GOTO to a convenient line 
number. Be forewarned however that CONT will not work (you 
will only get a ?CANT CONTINUE ERROR) and RUN or CLR will 
stili clear all variables. 

The utility does not provide any increase in speed of your program, 
however it will give you the edge when programming. You can 
repeatedly test parts such as output subroutines without having to 
run the rest of your program over again and wasting your valuable 
time. 

One more thing: the program points the RESTORE vector ($0318) 
to a part of itself so that if you press RUN/STOP-RESTORE any 
machine language program gone crazy will still be stopped, but the 
system vectors are not changed to point to the ROMs. This means 
that the utility can not be accidentally disconnected so your 
variables can not be inadvertently lost. 

The only drawback I have found when using my utility is that 
when used with another utility such as POWER (it uses the same 
WARMSTART vector) they tend to cancel each other out. Simply 
typing FIX brings POWER back, but disables my program. Type 
SYS 49) 52 to re-enable your indestructible variables. 

To start using the utility, type in the program in Listing I. When 
RUN. this program generates a machine code program on disk that 
you load like this: 



nwTKSHOCtor 
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load ' vars-indestruct " ,8, 1 


Listing 2: VARS-INDESTR 


UCT Source Code 


That \1 ' is very important- ll specifies a non-reiocating LOAD to 


JL 


1 000 sys700 


SCOOO where Ihe machine code hves. Once you have LOADed it 


KF 


1010 .opt 00 




type NEW, tht?n SYS 49152 and all your variables are indeslrut:li- 


MD 


1020' = 49152 




ble. 

1 


MH 


1030, 


1 




1 


OF 


1040: 


,truiy Indestructible variab es 


For those of you intt^rebled in studying the technique in greater 


AJ 


1050. 


1 




depth 1 have included the source code in Listing 2. 


NA , 


1060: 


,{c)une 11, 1985 by torn hall 




EK 


1070: 








LP 


1080. 


.equates 




Listing 1: Create VARS-INDESTRUCT' 


L 


1090 












KK 
FH 


1 1 00 vars 
1110 arrays 


45 ;beginning of variables 
47 iend of var/begin of 




LA 


1 00 rem create program " vars-jndestruct ' 




Gl 


1 1 printchr$(1 47) " creating disk It e " 






arrays 




GL, 


120 rem on disk 


LK 


1120 endarrays = 


49 ;end of arrays 




PG 


1 30 openi ,8,3, " vafs-indestrucl,p,w " 


E 


11 30 strings 


51 ;beginning of string 




NA 


1 40 print#1 ,chr${0)chrS(1 92); 






storage 




BP 


1 50 ch = : for 1 = 49 1 52t0494 1 6 


PD 


11 40 temp 


251 ;temporary storage 




PL 


1 60 read d : ch = ch + d 


BJ 


' 1 1 50 restore = 


792 .restore vector 




FN 


170print#1,chr${d); 


Dl 


1160 warmstart = 


770 ;warmstart vector 




AA 


. 1 80 next 1 : print " checksum = " ;ch 


HP 


1170chl<siop 


Sffel 




LG 


190 close Ij^rinl "should be 29338" 
200 prinl"Hpfogram is now on disk" 


NG 


11 80 initio 


$ff84 




CO 


PK 


1190initvid 


$ff81 




CM 


210 end 


MH 


1200 rewarm = 


$a49c 




CD 


220 data 169, 27,141, 24, 3,169.192,141 


8 


1210 printmes = 


Sable 




LB 


230data 25, 3,169, 52,141. 2, 3,169 


KD 


1220; 






GD 


240 data 192, 141, 3, 3, 169,209.160, 192 


ED 


1 230 start 


* 




PP 


250 data 76, 30,171, 72,138, 72,152, 72 


OE 


1240; 






IG 


260 data 32,225,255,208, 9, 32,132,255 


IP 


1 250 , insert new vectors 




MF 


270 data 32,129,255,108, 2, 3,104,168 


CG 


1260; 






BD 


280data104. 170, 104, 64, 73,208,192,240 


HN 


1 270 da 


#<dorestorG 




GH 


290data 75,169, 0,141,208,192, 56,165 


CD 


1 280 sta 


restore 




L 


300data 45,237,204,192,133,251,165, 46 


HO 


1 290 Ida 


#>do restore 




ED 


310 data 237, 205, 192, 133,252, 24,173,200 


NC 


1300 sta 


restore + 1 




EF 


320data 192, 101,251, 133, 45,173,201, 192 


EJ 


1310, 




1 


DF 


330data101,252, 133, 46, 24,173,202,192 


EC 


1320 da 


#<dowarm 




JF 


340 data 101, 251, 133, 47,173,203, 192, 101 


FD 


1 330 sta 


warmstart 




NG 


350data252, 133, 48, 24,173,204,192,101 


ED 


1340 da 


#>dowarni 




IJ 


360 data 251, 133, 49, 173,205, 192, 101,252 


AD 


1 350 sta 


warmstart + 1 




NL 


370 data 133, 50,173,206,192,133, 51,173 


MJ 


1360 print Sign on message 




BA 


380data207, 192, 133, 52, 32, 96,165,134 


DG 


1370 da 


#<message 




BO 


390 data 1 22, 1 32, 1 23, 32, 115, 0,1 70, 240 


JM 


1380 dy 


#> message 




GP 


400data163, 162, 255, 134, 58,144, 6, 32 


HH 


1390 jmp 


printmes 




MB 


410datal21,165, 76,225,167, 8, 72,138 


00 


1400; 






AN 


420data 72,152, 72,169,128,141,208,192 


NN 


1410doreslore = 


• 




K 


. 430 data 160, 7,185, 45, 0,153.200, 192 


CA 


1420, 






AH 


440 data 136, 16,247,165, 49,133, 45,133 


Dl 


1430 pha 


;save registers 




GO 


i 450 data 47,165, 50,133, 46.133, 48,104 


EF 


1440 txa 






AP 


460 data 168, 104, 170, 104, 40. 76.156,164 


GO 


1450 pha 






EK 


470 data 0, 0, 0, 0, 0, 0, 0, 


LG 


1 460 tya 






HP 


480dala 0, 13, 10, 73, 78, 68. 69, 83 


KD 


1470 pha 






KG 


,490 data 84, 82, 85, 67, 84, 73, 66, 76 


OG 


1 480 jsr 


chkstop ;is stop key down 




KG ' 


500 data 69, 32, 86, 65, 82, 73, 65, 66 


AP 


1490 bne 


nostop 




DH i 

1 


510 data 76, 69, 83, 32, 45, 32. 66, 89 


IK 


1 500 jsr 


initio ;yes 




GG 


520 data 32, 84, 79, 77, 32, 72, 65, 76 


PH 


1510 jsr 


initvid 




JG 


530 data 76, 13, 13, 10, 18, 65, 67, 84 


EP 


1 520 mp 


[warmstart) 




GJ 


540 data 73, 86, 65, 84, 69, 68, 13, 10 


FA 


1 530 nostop 


* ;no 




ML 


550 data 


Ml 

NN 


1 540 pla 

1 550 tay 












AK 


1 560 pla 





The Transactor 
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NO 


1570 


tax 






GG 


2130 bcc inenum 






EL 


1580 


pla 






AO 


2140 jsr $a579 ; 


tokenize and 




KP 


1590 


rti 






HA 


2150 ]mp $a7e1 ; 


execute command 




GL 


1600; 








OP 


2160linenum = * ; 


starts with a ine 




LF 


leiOdowarm 


^ 


* 






1 


lumber 




KM 


1620; 








OA 


2170 save registers 






Dl 


1630 


Ida 


fag 


;fag starts as zero 


MD 


2180 php 






HD 


1640 


beq 


noshift 




KA 


2190 pha 






GD 


1650fix variabi 


3 pointers 




ME 


2200 txa 






MP 


1660 


da 


#0 


ikill the flag 


OB 


2210 pha 






JO 


1670 


sta 


flag 




DG 


2220 tya 






GA 


1680; 








CD 


2230 pha 






DL 


1 690 find correction amount for pointers 


GD 


2240; 






PC 


1700 


sec 






Gl 


2250 prepare for variable shift 






AD 


1710 


Ida 


vars 




, NK 


2260 and set shift flag 






EG 


1720 


sbc 


storage + 4 




EF 


2270; 






NG 


1730 


sta 


temp 




LE 


2280 da #128 






KF 


1740 


Ida 


vars + 1 




PP 


2290 sta flag 






Gl 


1750 


sbc 


storage + 5 




OB 


2300 Idy i7 


;save variable pointer ; 




HJ 


1760 


sta 


temp+1 




NE 


23 10 sterol 






AG 


1770; 








AH 


2320 Ida vars,y 






GN 


1780 


cic 




icorr ect stored 
pointers 


OA 
PN 


2330 sta storage,y 
2340 dey 






EE 


1790 


Ida 


storage 


;tix start vars 


K 


2350 bpl storel 






HG 


1800 


adc 


temp 




IF 


2360 da endarrays 


;set start of variables 




CN 


1810 


sta 


vars 




Dl 


2370 sta vars 


;and start of arrays to 




MK 


1820 


da 


storage + 1 




CJ 


2380 sta arrays 


;end of arrays 




BJ 


1830 


adc 


temp + 1 




DM 


2390 Ida endarrays+- 


1 




MP 


1840 


sta 


vars + 1 




MC 


2400 sta vars + 1 






KM 


, 1850 


clc 




;1ix end of vars/start 
of arrays 


AL 

DM 


2410 sta arrays + 1 
2420 recover registers 






N 


1860 


Ida 


storage + 2 




GA 


2430 pla 






NK 


1870 


adc 


temp 




HP 


2440 tay 






MN 


1880 


sta 


arrays 




KB 


2450 pla 






KP 


1890 


da 


storage + 3 




HG 


2460 tax 






HN 


1900 


adc 


temp+ 1 




00 


2470 pa 






ML 


1910 


sta 


arrays + 1 




EH 


2480 pip 






MP 


1920 


cc 


. 


;t[x end of arrays 


ID 


2490 jmp rewarm 


;re-en!er warmstart 




GC 


1930 


Ida 


storage + 4 








routine 




DP 


1940 


adc 


temp 




KD 


2500; 






AH 


1950 


sta 


endarrays 




KL 


25 10 storage = * 






IE 


1960 


Ida 


storage + 5 




BL 


2520 .word 0,0.0,0 






NB 


1970 


adc 


temp+ 1 




FA 


2530 flag 






HG 


1980 


sta 


endarrays + 


1 


GC 


2540 bytO 






AG 


1 990 restore bottom of strings 




MG 


2550; 






EH 


2000 


da 


storage + 6 




NH 


2560 message = 






KG 


2010 


sta 


strings 




Al 


2570; 






M 


2020 


Ida 


storage + 7 




KG 


2580. byt 13,10 






HP 


2030 


sta 


strings + 1 




GM 


2590 asc " indestructible variables 


- by tom hall " 




OG 


2040; 








ML 


2600 byt 13 13,10 
2610. asc "Dactivated" 






DA 


2050 noshift 


jsr 


$a560 


;copied from the 


AF 






HC 


2060 


stx 


$7a 


,rom routines - 
change, 


GJ 


2620 .byt 13,10,0 










MJ 


2070 


sty 


$7b 


;insertor delete a 

1 1 r^/^ 








KF 


2080 


isr 


$0073 


line, 

;or execute a direct 

mode 




V 




CI 


2090 


tax 




;command 








OK 


2100 


beq 


dowarm 










HP 


2110 


Idx 


#$ff 










HJ 


2120 


stx 


$3a 
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Disk Un- Assembler 
For The Commodore 64 



J. Lothian 
Ottawa, Ont. 



Create Real Source From Object Files 



As programmers, we frequently acquire machine language 
code programs that we would like to analyze and understand, 
but the lack of an assembler source code tile or listing severely 
limits our investigations. Perhaps we wisli to understand the 
programmer's technique, to identify the usable subroutines, or 
to reconstruct a program that we previously wrote but for 
which the documentation was lost. We may also wish to modify 
the program slightly to relocate it. or to modify zero page 
storage, or to change the I/O in some fashion. What we require 
in such instances is a utility program that will scan a given 
machine code program and produce a corresponding assembly 
language source file that is usable by our assembler language 
development package. 

There are utilities available within the monitors of most assem- 
bler packages that satisfy some of these requirements and they 
are referred to as dissemblers. Unfortunately, the dissemblers 
provided with these packages have two serious shortcomings- 
First, dissemblers typically display the assembled code on the 
screen or printer but do not create source files that are compati- 
ble with the programmer's assembler/ editor package. Second, 
the dissemblers do not provide listings with symbolic labels. 

Symbolic assemblers use labels to denote locations (addesses) 
and expressions (values). Labels can be aUached to any instruc- 
tion or expression to denote the memory location and then all 
jumps or branches within the code are done by referencing 
these labels. The labels can be any combination of letters and 
numbers, but must start with a letter. The benefits of labels are 
that they make code automatically relocatable and they reduce 
the burden on the programmer since all references to locations 
are relative and defined by a comprehensible mnemonic/ label. 
Also with labels, branching operations do not involve complex 
hexadecimal calculations. 

In the September 1982 volume of the Transactor. Paul Higgin- 
bottom provided such a utility for CBM BASIC 4.0 machines 
and called it an "Un-Assembler'^ in order to distinguish it from 
a disassembler. That version was not appropriate for the C64 or 
VIC20, This version will work with any Commodore machine 
including the C64 and the V1C20 and it includes several extra 
features. (For machines other than the C64 ail POKEs and the 
special characters in the print statements should be removed,) 



A program that requires un-assembly does not need to be 
resident in core since the utility reads the machine language 
code from disk and writes (he source code on the same disk 
(using the 1541) or on another disk if a dual disk drive is 
available. The source code files are compatible with the Com- 
modore 64 Macro Assembler Development System, but the 
program can be easily modified to accommodate any other 
assembler format. The output from the Un-assembler can also 
be directed to the screen or printer instead of the disk drive. 

Address labels are generated by the utility but not expression 
labels. Label locations within the program and outside the 
program are generated by the utility. Addresses outside the 
program plus addresses that occur in the middle of instructions 
are symbolically defined through the EQUATE( = ) directive. 
Labels are defined as character strings starting with "AD" 
followed by the address of the target location in hexadecimal 
notation. 

The utility allows the programmer to choose the starting 
location within the program for the un-assembly. This will 
allow un-assembly of subroutines and the avoidance of byte 
tables. The utility does not convert BIT operations to BYTE 
operations as Paul Higginbottom's version did. I have rarely 
encountered problems with this instruction and I have found 
more use for the different start locations. It is easy to install this 
feature by inserting the line: 



61 MD{36) = 0:MD(44) = 



The Un-assembler makes four passes through the machine 
code file. In the first pass, the starting and ending addresses of 
the machine code program are obtained. This allows the utility 
to distinguish between in-range jumps and branches and those 
with targets outside the program. These addresses are printed 
to provide information lo the programmer. 

In the second pass, the user is asked to provide the starting 
address for the un-assembly. Starting from this location, a label 
table is constructed for all the jump and branch targets. The 
program treats in-range and out-of-range labels differently. 
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In the third pass, invalid in-range labels are identified. Byte 
tables or other problems with the code may result in a jump or 
a branch instruction that has a target in the middle of another 
instruction. Such labels are invalid and treated by the utility 
like an out-of-range label. 

In the fourth pass, the Un-assembler creates the assembler 
source files. The files are created in a format that conforms to 
the Commodore Macro Assembler and they can be modified 
with the Commodore Editor, At the start oi the file all the out- 
of-range and invalid labels are defined by using the 
EQUATE( = ) assembler directive. Following this comes the 
assembly code with labels attached to any in-range and valid 
target lines. The utility will automatically create extra files if the 
first hie gets too large. The output produced can be re- 
assembled into exactly the same machine code with which you 
started. 

When using the utility, it will occasionally appear to freeze with 
the disk drive red light remaining on. This is natural and it 
occurs because the machine is undergoing garbage collection. 
(This has been discussed in detail in previous issues of the 
Transactor.) 

Unfortunately, the Un-assembler will occasionally produce 
incomprehensible source code. First, one of the most impor- 
tant features of an assembly language listing is the use of 
mnemonic labels. Letter combinations are chosen for labels 
that are suggestive of their significance in the program. Such 
information can not be reasonably recovered from an un- 
known machine code program. 

Second, there are apt to be minor ambiguities in translating 
machine code into a given assembly language that are difficult 
to resolve. [?or example, is the data byte $4B to be interpreted 
as$4B,75,l^>^or%0100I0n? 

Third, there are inherent problems in dissembling machine 
code programs containing tables of characters, addresses, data 
bytes, etc. While it is unlikely that the bytes in a table would 
constitute properly spaced opcodes, it can not be ruled out. 
Such tables will tend to be improperly identified and this will 
prevent accurate decoding of surrounding machine code. 

Fourth, multiple entry points to subroutines hidden by BIT 
instructions may reduce the readability of the assembler code. 

Editing of the source files produced by the utility can reduce 
some of these problems. Despite its limitations, the Un- 
assembler will be a great benefit in analyzing machine code 
programs for which there is no original source code. 



The Un- Assembler 



OA 
AE 
NG 
LC 
BP 

JB 

EG 
GO 
JL 

01 
HA 
MK 
OH 

KK 
KD 
AJ 

FE 

ON 
PD 
KL 

LN 
Nl 

NJ 
FM 
NO 
IF 
AJ 

HI 
MM 

NO 

EF 

EG 

Fl 

IL 

LK 

PE 

AJ 

LJ 

AD 



LL 

E 



10 rem disk un-assembler Jong c64 

20 rem originally by paul htgginbottom 

30 rem modified by j. lothian, Ottawa, Ontario 

40 rem initialize variables 

50poke53280.12:poke53281,15:a$='' ":q = . 

:p = .:n-.;n$=" '■:p$=" '':de = .:i = .:bc = . 
60n1$ = chr$(0):he$="0123456789abcdef" 

:xx$ = chr$(13):ps = 1:mh-256:lf = 1000:ot=. 

70 rem ^^^ 

80 print "^ffiH c-64 disk un-assembler" 

90 print "mBT jacklothian" 

iprint uS please wait " 

1 00 rem 

110 rem arrays defining assembler opcodes 
120dimmd(255),mn$(255)J1(500)J2(500) 
130 fori = 110151 :reada$,a,b:mn$(b) = a$ 
:md(b) = a:next 

140 rem 

1 50 rem check where source should be listed 

1 60 print "H source code on print (p), screen (s), - 

linpuf ordisk(d)^ot$ 
1 70 it ot$<> " p ■' andot$<> " s " andotSO ' d " 

then 160 
1 80 rem 

1 90 rem get object and source file names 
200 input "H drive number of the program(0 or 1) ' ifd 

: iffdOOandfd0 1 then200 
210 input" program filename ";f$ 
220 iflen(f$)>16thenprint"D|error - file name is 

toolongH" :goto210 
230gosub2410:fS = chr${fd)+-:' +f$4-\p,r'' 

240 openl ,8,9,f$;gosub2220:close1 

250ifea<>0thenclose15:goto210 

260ifot$<>^d"then330 

270 input " B drive number for the source file " ;fo 

; iffoOOandf d<> 1 then270 
280 input" source filename " ;of$ 

290 iflen(of$)>1 2thenprint"ne''^^^ ' ^''^ ^^^^ '^ 
toolongH":goto280 

300 of$ = str$(fo) + ^ " + of$ + V ^ :gosub2420 

310 rem 

320 rem convert bit to .byte option 

330 print " Q do you wish bit operations 

converted[4 spcs]lo byte operations? " 
340 input " D yes (y) or no (n) " ;an$ 
350 it an$<> " n " and an$<> " y " then 340 
360 if an$ - > " then md(36) = 1 4:md(44) = 1 4 

370 rem 

380 rem first pass - find start and end addresses 

390gosub2380:gosub2260:s = asc(a$ + n1$) 

-f asc(b$-t-n1$)*mh:e = s 
400get#1,a$:e = e + 1:ifst = 0then400 
410close1:de = s:hn = 3:gosub2180 
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OD 


420 print "H starting address is:[1 spc]' 


CB 


910gosub2380:p-s-1:gosub2260:i = 1:ad = t1(i) 






;s;"($-;ti$;")" 


EM 


920 gosub2090:gosub21 20; fad = ptheni = i + 1 




MP 


430 de = e:gosub2180:prJnt"J| ending address 




;ad- 1(i) 






s:[3spcs]";e;" ($" ;ti$; ")" 
440 print " Q ength of the f e is " ;e-s + 1 ; " bytes " 


CP 


930 on n gosub970,980, 980, 980,980. 980, 




PG 




1010,1010,1010,1010 




AO 


450 rem 


GG 


940 if n>10 then on (n-10) gosub980.980,970,970 




PG 


460 rem read start address for un-assemb y 


PC 


950 if p< = ethen920 




KG 


470 print " Q un-assemb y starting address " 


KA 


960cose1;goto1090 




JE 


480 input" [8 spcs]in decima or hex ($) " ;an$ 


GO 


970 return 




PL 


490 gosub2480:sa = de:if sa = Olhensa = s 


LF 


980 p = p + 1:ifp>e then return 




EN 


500if sa<sorsa = >ethenprint"^Jerror-out of 


FD 


990 if ad = p then gosubl 060 






range address" :goto480 


HN 


1000gosub2090;return 




MB 


510 rem 


LH 


1010 p = p + 2;ifp>e then return 




CN 


520 rem second pass - construct abe labe 


FK 


1020 if ad = porad = p-1then gosub1060 




JH 


530 gosub2380:p = s-1 :goEub2260 


EE 


1030 gosub2090:gosub2090:return 




CN 


540 gosub2090:gosub21 20:op = q 


OC 


1040 rem 




DA 


■ 550 on n gosub580,590,630,590,590,590,600, 


HF 


1050rern invaid abe change to out of range abe 


1 

1 




600,600,600,590,590,580,580 


KC 


1060lv= v+1:o= o+1:2(lo) = ad;i = i + 1 




LJ 


560 ifp< = ethen540 




:ad= 1(i):return 




AF 


570 closet :goto860 


ME 


1070 rem 




AG 


580 return 


KC 


1 080 rem print count of inva id addresses 




PK 


590 gosub2090:p- p + 1 :return 


KN 


1090 if vOO then print "H number of invaid 




KM 


600 gosub2090:ad = q:gosub2090:ad = ad + q-mh 




addresses: " v 




CM 


610 p = p + 2:ifad<sorad>ethengosub760:return 


KG 


1 1 00 rem 




GF 


620gosub680:return 


AH 


1110 rem fourth pass - output assemb er code 




NO 


630 gosub2090:ad = p + q + (q>1 27)Tnh + 2 


EH 


1120gosub2380 




J 


640 p = p + 1:ifad<sorad>ethen return 


1 


1 1 30 rem 




EH 


650 gasub680. return 


LL 


1 1 40 rem open source and machine code fi as 




CL 


660 rem 


LK 


1150n($ = of$+ "1.S-:p = S-1:nf-2 




DC 


670 rem abe s for addresses of in range branches, 
jumps, da, etc 


GG 


1160gosub2320:gosub2220:gosub2260 
:nf=2:c = 1 




OM 


680 f=1;fon = 1tob+1:l= 1{i):ift = adthenf = 


AL 


11 70 rem 






:goto720 


ML 


11 80 rem write starting address 




CC 


690 if KadandtOO then 720 


FH 


1190de-p+l:hn-3:gosub2180:p$-"n spc]"-$" 




FC 


700 if t>adand f then 1 (i) = ad:ad = t:goto720 


1 


+ h$ + ^ <starling address> " :gosub21 50 




FJ 


710tft = 0andflhen 1(i) = ad 


OM 


1 200 rem 




JE 


720 next: f fthen b= b + 1 


F 


1210 rem assign abe va ues for addresses out 




GP 


730 return 


1 


of range 




CA 


740 rem 


FP 


1220 if o = 0lhen1270 




PJ 


750 rem labe s for addresses out of range 


JJ 


1 230 p$ = " ;<out of range jumps and subs> - 




GO 


760 ifop<>32andop<>76andop<>1 OSthenreturn 




:gosub2150 




KC 


770 if ad = Othenreturn 


P 


1240fori = 1loo:de= 2(i):gosub2180 




- ^ 


780 If - 1 :for - 1 tolo + 1 :t - 2{i):ift - adthen f - 
:goto820 


AB 


1250 if i= 0- v + 1 then p$= " ; 6spcs]<inva d 
Iabels>\gosub2150 




H 


790 f KadandtOO then 820 


GK 


1260 p$=' 5spcs]ad" +h$+" =$" +h$ 




P 


800 If t>adand f then 2[i) = ad:ad = t:goto820 




:gosub2150:next 




MP 


810 ft-Oand fthen 12(1) -ad 


HL 


1270 t-1:t= 1{t) 




00 


820next:if fthen o^ o+l 


NL 


1280ifc<>fthen1350 




KF 


830 return 


C 


1 290 rem 




GG 


840 rem 


OL 


1300 rem after 1000 nes create new fi e 




CG 


850 rem print summary of label counts 


NC 


1310nf$ = of$4'mid$(str$(nf),2)+ ".s":p$-";" 




EH 


860 print " Q number of in range abe s: " ; b 




:gosub2150:p$- ",fil^ +nf$:gosub2150 




AJ 


870 print " Q number of out of range abe s: " ; o 


GG 


1 320 gosub2450:nf = nf + 1 :1c = 1 :gosub2320 





880 rem 




:gosub2220 




01 


890 rem third pass - check if a abe s va id 


AF 


1 330 rem 




GH 


1 900 if b = then 1120 


AK 


1340 rem start reading op codes 
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EE 
OG 
KB 
KG 
CE 
LK 

GL 
BB 

MJ 

Kl 

PK 

CN 

FL 

CB 

AP 
AA 
EK 
PN 

IB 

Kl 

IK 

GO 
CM 
AK 

OE 

GL 
LK 
CH 
EE 
IN 

AJ 
PL 
BC 

OK 
AO 
BE 

MM 
JJ 
PG 

KL 

AA 

PM 
lA 
AP 



1350gosub2090:op = q:gosub2120 

1360 rem 

1 370 rem check if this is a labeled address 

1380pp$="[8spcs]";ift = 0lhen1410 

1 390 if t<p then It = It + 1 :t = II (lt):goto1 380 
1 400 if t = p then de = p:hn = 3:gosub21 80 

:pp$-"ad" +h$+ ■■[2spcs]":lt = H+1;t = 11(lt) 
1410if n<>OIhenpp$ = pp$ + n$+ "[1 spc] " 
1420 on (n + 1)gosub1480, 1510,1550,1580, 

1640,1670,1700,1730,1790,1850,1910 
1430ifn>10thenon(n-10)gosub1950,1980,2010 
1 440 if p> = e then 2700 
1450 gotol 280 
1460 rem 

1470 rem illegal opcode .byte assumed 
1 480 de = op:hn = 1 :gosub21 80:p$ - ppS 

+ ".byteS" +h$:gosub2150:return 

1490 rem 

1500 rem implied mode 
1510p$-pp$:gosub2150:return 
1520gosub2150:return 
1 530 rem 

1540 rem immediate mode 

1 550 gosub2090:de = q:hn = 1 :gosub21 80:p$ = pp$ 
+ '#$" +h$;gosub2150:p = p+1;return 

1560 rem 

1570 rem relative mode (branches) 

1 580 gosub2090:ad = p + q + (q>1 27)*mh + 2 

:de = ad:hn = 3:gosub2180 
1 590 ifad<sorad>ethenp$ = pp$ + " $ " + h$ 

:goto1610 
1600p$ = pp$+"ad" +h$ 
1610gosub2150:p = p+1:return 

1 620 rem 

1 630 rem zero page mode 

1 640 gosub2090:p = p + 1 :de = q:hn = 1 :gosub21 80 
:p$ = pp$+ "$" +h$:gosub2150:return 

1 650 rem 

1660 rem x-indexed zero page mode 

1 670 gosub2090:p = p + 1 :de = q:hn = 1 :gosub21 80 

:p$ = pp$+ "$" +h$+ ■,x":gosub2150:return 
1680 rem 

1690 rem y-indexed zero page mode 
1 700 gosjb2090:p = p + 1 :de = q:hn = 1 :gosub21 80 

:p$ = pp$+ ■'$" +h$+ ",y":gosub2150:return 

1710 rem 

1 720 rem absolute mode 

1 730 gosub2090:ad = q:gosub2090:ad = ad + q*mh 

:p = p-(-2:de = ad:hn = 3:gosub2180 
1740p$ = pp$+ "ad" +h$:ifad> = s 

andad< = elhen1760 
1 750 if op<>32andop<>76andop<>1 08orad = 

thenp$ = pp$+"$" +h$ 
1760gosub2150:return 

1 770 rem 

1780 rem x-indexed absolute mode 



LK 

PF 

EA 

LA 
EE 
PC 
HO 

EK 

CE 

HE 

Al 

JF 
DC 

FJ 
IK 
PJ 
LF 

GM 
AM 
PK 

EG 
JB 
KE 
CA 
DP 
DL 
CL 

LP 
ED 
PH 

DD 

CF 

BB 

Dl 

AH 

LG 

AN 

01 
FL 
LJ 

CO 
GL 
OD 



1 790 gosub2090:ad = q:gosub2090:ad = ad + q*mh 
:p = p + 2:de = ad:hn = 3:gosub21 80 

1 800 p$ = pp$ + " ad " + h$ + ■ ,x " :ifad> = s 

andad< = ethen1820 
1 810 if op<>32andop<>76andop<>1 08orad = 
thenp$-pp$+"$"+h$+",x" 

1 820 gosub21 50;return 

1830 rem 

1 840 rem y-indexed absolute mode 

1 850 gosub2090:ad = q;gosub2090:ad = ad + q*mh 

:p = p + 2:de = ad:hn = 3:gosub21 80 
1 860 p$ = pp$ + " ad " + h$ + " ,y " :ifad> = s 

andad< = e1hen1880 
1 870 If op<>32andop<>76andop<>1 OBorad = 

thenp$ = pp$+"$"+h$+",y" 
1880 gosub2150:return 

1 890 rem 

1 900 rem indirect mode 

1 91 gosub2090;ad = q:gosub2090.ad - ad + q'mh 

:p = p + 2:de-ad:hn = 3;gosub2180 
1 920 p$ - pp$ + " (ad '■ + h$ + " ) ' :gosub21 50:return 

1 930 rem 

1940 rem x-indexed indirect mode 

1 950 gQsub2090;p - p -(- 1 :de = q:hn - 1 :gosub21 80 

:p$ = pp$ + " ($ " -f h$ -H " .x) " :gosub21 50:return 
1 960 rem 

1 970 rem y-indexed indirect mode 
1 980 gosub2090:p = p -(- 1 :de = q:hn = 1 ;gosub21 80 

:p$ - pp$ -H " ($ " + h$ -H " ),y " :gosub21 50;return 

1 990 rem 

2000 rem accumulator mode 

2010 p$ = pp$-H "a":gosub2150:return 

2020 rem 

2030 rem bit converted to byte operation 

2040 de - op:hn = 1 :gosub21 80:bc = be + 1 

2050p$="[8spcs]" + ".byte$" +h$-H " ;<this was 

abitinstruction>" 
2060gosub2150:return 

2070 rem 

2080 rem read a byte {a$) from file and calculate 

ascii value (q) 
2090get#1,a$:q = asc(a$ + n1$)::return 

2100 rem 

21 10 rem decode instruction 
21 20 p = p -(- 1 :n$ = mn$(q):n - md(q):return 
2130 rem 

21 40 rem output data line for assembler 
21 50 p$ ^ p$ + xx$:print#6,p$;:gosub2220 
:lc = lc-Hl:return 

2160 rem 

2170 rem decimal (de) to hex (h$) conversion 
2180dx = de:h$- " " :form = hntoOstep-1 
m% - dx/(1 6tm):dx = dx-n%* 1 6tm 
21 90 h$ = h$ -I- mid$(he$,n% + 1 ,1 ):next;return 

2200 rem 

221 rem read disk error channel 
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NK 

CN 
ON 
MF 
PK 
HA 
MK 

OA 

KB 

NA 

Fl 



AD 
HO 
PA 

GF 
MO 
KG 

EH 
OP 
LC 
HC 
MJ 

M 

MB 
KL 

HJ 

FO 



2220 

2230 
2240 
2250 
2260 
2270 
2280 

2290 
2300 
2310 
2320 



2330 
2340 
2350 
2360 
2370 
2380 

2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 

2480 



NC 


2490 


M 


2500 


LD 


2510 


LO 


2520 


DP 


2530 


NA 


2540 


NP 


2550 


PF 


2560 


C 


2570 


GM 


2580 


GE 


2590 


NH 


2600 


J 


2610 



input#1 5,ea,eb$,ec,ed:if ea then 

prinf'Hdisk error";ea;eb$;"H" 
return 

rem 

rem open file and get first two bytes 

open1,8,12,f$:get#1,a$,b$ 

if ps< = 2ttienreturn 

If p<(3a-1)thengosub2090:p - p + 1 

:goto2280 

return 

rem 

rem open source file 

ifot$= "d"thenp$ = "@" + nf$ + 

",s,w":open6,8,3.p$:gosub2220 

: return 

ifotth en return 

ot = 1 :Jfot$ = "p"thenopen6,4:return 

open6,3:return 

rem 

rem print pass number 

prJnt"Hp3SS #";ps;" ol ttie file to 

be decoded ":ps-ps+ 1:return 

rem 

rem initialize the disk drive 

0pen15,8,15,"i"+str$(fd}:reiurn 

print#15,"i" + str$(fo):return 

rem 

rem end of source file 

print#6,chr${0);:close6:return 

rem 

rem convert string (an$) to decimal 

(de) and hex (h$) 

hd = 0;I2 - 0:13 - 1 :I4 = len(an$} 

:hn = 3 

a1$-mid$(an$,l3,1) 

ifa1$<>chf${32)then2540 

13 = 13 + 1 

if I3>I4 then de = 0:gosub2080 

: return 

goto2490 

ifa1$ = chr$(36)thenhd = 1 

:I3 = I3 + 1 

12 - 14-13 + 1 :h$ = mid$(an$, 13,12) 

ifhd = 0thengosub2640 

:gosub2180:return 

rem 

rem hex to decimal (h$ to de) 

de = D:form - 1 tol2:forw = Otol 5:if 

mid$(h$,m,1) = mid$(he$,w + 1,1) 

then 2610 

nextv\/:m = l2:nextm:de = 0:return 

de = de + w*{1 6t(l2-m)):nextm 

: return 



KF 
GJ 
BA 

PC 

JL 
NK 
GJ 
AD 
CD 

NN 
OL 
L.K 
GM 

IC 
GJ 
MD 
DK 

LI 

OG 
LB 
NK 
HN 
MC 

H! 
GG 

01 
AA 

IC 
GC 
CE 
GO 
NN 

JF 
HJ 
NO 
NP 
BP 
EB 
NP 
FF 
FG 
GA 
NN 

m 

MO 
CM 
AG 
DG 
ED 
LC 



2620 
2630 
2640 

2650 

2660 
2670 
2680 
2690 
2700 

2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 



rem 

rem string (h$) to decimal (de) 

de = 0:12 = !en(h$):form = 1 tol2 

:forw = 0to9 

ifmid$(h$,m.l) = mid${he$,w4-1,1) 

then 2670 

nextw:m=l2:nextm:de = 0:retufn 
de = de + w*{1 0t(l2-m)):nextm: return 
rem 

rem end of program - close files 
p$ = "[1 spc];":gosub2150:p$ = "[2spcs].end" 
:gosub21 50:close1 :gosub2450:close1 5 
print"PHun-assemblvcomplete":end 
rem 

rem mnemonic, addressing mode, hex code 
data brk, 1, 0, ora, 11, 1, era, 4, 5, 

8, ora, 2, 



data php, 1 , 



9. as!, 13, 



data asl, 7, 14, bpl, 3, 16, ora, 12, 



10, 
17, 



asl, 



5, 22, 
30. 



data 

data asl, 8 
data and, 4, 37, 
data rol, 13, 42, 



cic, 1, 24, ora, 9, 25, 
jsr, 7, 32, and, 11, 33, 
rol, 4, 38, pip, 1, 40, 



bit, 7, 44, and, 7, 



data bmi, 3, 48, and, 12, 49, and, 5, 
data sec, 1, 56, and, 9, 57, and, 8, 



45, 
53, 
61. 



1, 72, eor, 2, 73, Isr, 13, 74, 



data rti, 1, 64, eor, 1 1 , 65, eor, 4, 69, 

data pha, 

data eor, 7, 77, 

data eor, 5, 85, 

data eor, 8, 93, 

data adc, 4, 101, 



(sr, 

Isr, 



7, 78, bvc, 3, 80, 
5, 86, cli, 1, 88, 
Isr, 8, 94, rts, 1, 96. 



ror, 4,102, pla, 1,104, 
data ror, 13, 106, |mp, 10, 108, adc, 7,109, 
data bvs, 3,112, adc, 12, 113, adc, 5,117, 
data sei, 1,120, adc, 9, 121, adc, 8,125, 
data sta, 11,129, sly, 4,132, 
data dey, 1, 136, txa, 1, 138, 

7, 142, bcc, 3, 144, 
stx, 6, 150, 



data 



stx, 

data sta, 5,149, 

data ixs, 1,154, 

data Idx, 2, 162, 



sta, 4, 133, 
sty, 7, 140, 
sta, 12, 145, 
tya, 1,152, 



sta, 8,157. Idy. 2,160, 



dy, 4, 164, 



data fay, 1, 168, Ida, 2.169, 



Ida, 
tax. 



4, 165, 
1, 170, 



data Ida, 7,173, Idx, 7,174, bcs, 3,176, 



Ida, 5,181, Idx, 6, 182, 
tsx, 1,186, tdy, 8, 188, 



data Idy, 5, 180, 

data Ida, 9, 185, 

data Idx, 9, 190, cpy, 2, 192, cmp, 1 1, 193, 

datacmp, 4, 197, dec, 4,198, iny, 1,200, 

data dex, 1,202, cpy, 7, 204, cmp, 7.205, 

data bne, 3, 208, cmp, 12, 209, cmp, 5,213, 

data old, 1,216, cmp, 9, 217, cmp, 8,221, 

data cpx, 2,224, sbc, 11,225, cpx, 4,228, 

data inc, 4,230, inx, 1,232, sbc, 2,233, 

data cpx, 7, 236, sbc, 7, 237, inc, 7, 238, 

data sbc, 12, 241, sbc, 5,245, inc, 5,246, 

data sbc, 9,249, sbc, 8,253, inc, 8, 254 



asl, 4, 6 

ora. 7, 13 

ora, 5, 21 

ora, 8, 29 

bit, 4, 36 

and, 2, 41 

rol, 7, 46 

rol, 5, 54 

rol, 8, 62 

Isr, 4, 70 

jmp, 7, 76 

eor, 12, 81 

eor, 9, 89 

adc, 11, 97 

adc, 2, 105 

ror, 7, 110 

ror, 5, 118 

ror, 8, 126 

stx, 4, 134 

sta, 7, 141 

sty, 5, 148 

sta, 9, 153 

Ida. 11, 161 

Idx, 4, 166 

Idy, 7, 172 

Ida, 12, 177 

civ, 1, 184 

Ida, 8, 189 

cpy, 4, 196 

cmp, 2, 201 

dec, 7, 206 

dec, 5, 214 

dec, 8, 222 

sbc, 4, 229 

nop, 1, 234 

beq, 3, 240 

sed, 1, 248 
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Super Sound 



Glen Reesor 
Camrose, Alberta 



SID Sound — The Easy Way! 



How would you like to add eighteen sound- 
related commands lo your Commodore 64? 
Well you can. with Super Sound. Super 
Sound opens the door (o easy and powerful 
sound manipiilation; no more fumbling 
through all those POKEs. I'll bet you never 
dreamed of being able to glance at a pro- 
gram and think: Ah yes, that sets the AT- 
TACK to 5, DECAY to 0, SUSTAIN to 12. and 
RELEASE to 15, Or, how about being able to 
easily change the SUSTAIN level without 
changing the RELEASE rate? 



Just type in the Super Sound generator pro- 
gram and save iL Before RUNning it, make 
sure there is a disk in your drive because it 
will make a copy of Super Sound for you on 
that disk. Be careful to type in the data 
statements carefully. Those numbers are the 
actual Super Sound program. The new pro- 
gram on your disk is your working copy of 
Super Sound. Just LOAD and RUN it like 
any basic program. 

These eighteen additional commands be- 
have just like normal commands in BASIC 
— you can use them in program or direct- 
mode and you can have multiple commands 
on a line separated by colons. All com- 
mands added by Super Sound must be pre- 
ceded by the back-arrow (top left corner of 
the keyboard). 

Fun with SID 



Once you have LOADed Super Sound you are ready to create some 
sounds. Before I wrote this program, I sometimes had trouble 
gethng even one beep out of my 64. To show how easy it is with 
Super Sound, type the following: 

*-clear 
^volume 15 
--wave 1 pSaw 
♦-sustain 1,15 
*-play 1 ,2000 

You should hear a lone coming from your computer. Now, try the 
other waveforms. All you have to do is type the WAVE command 
again, but with a different waveform specified. If you want to use 
PULSE, remember to set the PULSE width. 





Description of Commands 




clear 


clear SID chip 




volume X 


set SID volume toX{0-l5) 




waveX, tri 


set voice X lo specified waveform 




waveX, saw 
waveX, pulse 
waveX. noise 






play X, FREQUENCY 


set voice X to specified frequency and start ATTACK cycle 




offX 


turn off voice X and start RELEASE cycle 




attack X,Y 


set AI'IACK rate for voice X to Y(0-15) 




decay X.Y 


set DECAY rate for voice X to Y (0-15) 




sustain X,Y 


set SUSTAIN level for voice X to Y (0-15) 




release X,Y 


set RELEASE rate for voice X to Y {0-1 5) 




pulse X,Y 


set PUI SF width for voice X to Y (0-4095) 




filter X, ow,Y 
filter X, high, Y 
filter X, band, Y 


FILTER voice X with desired filter, with a cut-off 

frequency of Y (0-2047) 

remember FILTER modes are additive, to change the filter, it 

must first be turned off 




filteroff X 


turn off FILTER for voice X 




svncX 


SYNCHRONIZE voice X with another voice, which is deter- 
mined by the SID chip 




syncoff X 


turn off SYNCHRONIZATION for voice X 




ringX 


RING MODULATE voice X with another voice, which is 
determined by SID 




ringoff X 


turn off RING MODULATION for voice X 




resonance X 


set RESONANCE level to X (0-15) 




kill 


turn on/off voice 3 (toggle) 





Now type the command: 



offl 



The tone should stop. Notice that the tone stopped right away. To 
change this, type the previous commands, but insert; 

^-release 1,15 

before the *-play command. Now when you type ■*-off 1 the tone 
should die-away very slowly. 

Now that you know how easy it is to make sounds, try some 
experimentation with different waveforms, as welt as different 
values for ATTACK, DECAY, SUSTAIN, and RELEASE. You will be 
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amazed at what you can command SID to do. Remember to use the Program to create Super Sound PRG file 


—off 1 command to start the RELEASE cycle; otherwise when you 




play another note, SID wi I not start the RELEASE cycle. (In summary, enter it. save it, run it, then load "super sound" and 

run i' ^ 


1 Ul L 

Try these four demos that create interesting effects using SYN- 
CHRONIZATION. RING MODULATION, and FILTERING. 


iL.y 


PA 


1 open 8,8,8, " 0;super sound,p,w " 




KK 


20print#8,chr$(1);chr$[8); 


10 rem synchronization 


BK 


30 read a:ck = ci< + a: ifa = 256 thenSO 


20 *-clear 


EH 


40print#8,chr$(a);:goto30 


30 •-volume 15 


DJ 


50 close8:if ck<>257740 then print " error in 


40 *-wave 1,saw 


1 


data statements " ,stop 


50 '^sustain 1 J5 


MD 


60 end 


60 -^p ay 1,10000 


JD 


70data 12. 8, 10, 0.158, 32, 50, 48 


70 -^sync 1 

80 for X = to 1 0000 step 10: — pay 3,x;nextx 


JG 


60 data 54. 52, 0, 0, 0, 0,129,169 


DG 


90 data 88.141, 2, 3.169,198,141, 3 


1 ■/ ^ 

90 end 


FH 


100 data 3. 160, 0,132,251. 169, 160, 133 


%^ ^^ ^^n r %^ 


OA 


110 data 252. 169, 55,133, 1.177,251,145 


1 rem ring modulation 


AH 


120 data 251 . 230, 251 , 208. 2, 230, 252, 165 


20 *'rlpar 


LI 


130 data 252. 201, 192,208.240, 169, 44, 133 


30*-volume 15 
40-^wave l.tri 
50 —sustain 1,15 
60 *-pfay 1,10000 
70 -ring 1 

^a- ^b r ^a. j jm- ^a. -h- j-i- ■ ^m. -i-^ 


EN 


140 data 251, 169. 160, 133.252. 132,253, 169 


HI 


150 data 9. 133,254, 177.253, 145,251,230 


GH 


1 60 data 251 . 208. 2, 230. 252. 230, 253, 208 


DM 


170 data 2.230,254, 165,252,201, 161,208 


NM 


180 data 234. 165,251,201, 157.208.228,132 


EB 


190 data 251. 169. 192, 133.252. 132,253, 169 


80forx = 0tG 10000 step 10: -^pay 3,x;next x 


LP 


200 data 11, 133,254, 177,253, 145,251,230 




IK 


21 data 251 , 208, 2, 230. 252, 230, 253, 208 


10 rem ring modulation and synchronization 
20 -clear 


AM 


220 data 2. 230, 254, 165. 252, 201, 198, 208 


BH 


230 data 234, 165,251,201. 97,208,228, 96 


30 —volume 15 


OL 


r 7 1 r 7 ' ' 

240 data 0. 0, 0, 0. 0, 0, 0, 


40 —wave 1 ,tri 


IM 


250 data 0. 0, 0, 0. 0, 0, 0, 


50— sustain 1,15 


CN 


260 data 0. 0, 0, 0. 0, 0, 0, 


60— pay 1.10000 


MN 


270 data 0, 0. 0, 0. 0, 0, 0, 


70— ring 1 


GO 


280 data 0. 0, 0, 0. 0, 0, 0. 


80 —sync 1 


AP 


290 data 0. 0. 0, 0. 0. 0, 0, 


90forx = 0to 10000 step 10; — pay 3,x:nextx 


KP 


300 data 0, 0. 0, 0. 0. 0, 0, 




EA ■ 


310 data 0. 0. 0, 0. 0, 0, 0, 


Try the following program with and without the resonance com- 


oa' 


320 data 0, 0, 0, 0. 0, 0, 0, 


mand. 


IB 


330 data 0, 0, 0, 0. 0, 0, 0, 


4 


CC 


340 data 0. 0, 0, 0. 0, 0, 0, 


10 rem fiftering {with and without resonance) 


MC 


350 data 0. 0, 0, 0. 0, 0, 0, 


20 -clear 


GD 


360 data 0. 0, 0, 0, 0, 0, 0, 


30— volume 15 


ae 


370 data 0. 0, 0, 0. 0, 0, 0, 


40 —wave 1 ,saw 


DF 


380 data 0. 0, 0, 0, 0, 0, 0,192 


50— sustain 1,15 


EE 


390data192. 74,169, 44,184,103,225, 85 


60— resonance 15 


JL 


400data225, 100, 225, 178. 179, 35,184,127 


70— play 1,3000 


GF 


410data170. 159, 170, 86,168,155,166, 93 


80 for X = to 2047 step 10. —filter 1,iow,x;nextx 


LA 


420 data 166. 133, 170, 41,225, 189,225, 198 




MA 


430data225, 122, 171, 65,166, 57,188,204 


Now, with the aid of Super Sound, you too can make awesome 


BF 


440 data 188, 88,188. 16, 3,125,179,158 


sound demos on your 64, With a ittle experimentation you wiil be 


LA 


450 data 179. 113, 191 151,224,234, 185,237 


making professional-sounding sound effects with ease^ 


BL 


460data19l,100, 226. 107,226, ISO, 226, 14 




LP 


470data227, 13, 184. 124, 183, 101, 180, 173 




Fl 


480data183, 139, 183,236, 182, 0,183, 44 


Editor's Note 


NF 


490datal83, 55,183.121,105,184,121, 82 




EF 


500datal84, 123, 42.186,123, 17,187.127 


There is q Utile less typirte ahead than al first appears. Those 


OF 


510data122. 191, 80.232,175, 70,229,175 


multiple lines of zeroes (probably .BYTE tables for parameter 


ME 


520data125, 179, 191, 90,211,174,100, 21 


storage) can be entered quickly by just changing the line number 


BH 


530data176, 69, 78.196, 70, 79,210. 78 

^^ - -- —J- -■- -■- -■- jM- Jb jMa. ^a. Jb ^^ ^m- j j -h- ^^ ^h ^a. 


each lime. Speaking of BYTE tables, our apologies for omitting the 


FL 


540data 69, 88,212. 68, 65, 84.193, 73 

^^ ^^ d-B _ jX^ jM. — — ^_ ^^ -■- - - jMa. jta. ^^m f% ^^m ^m. jam. ^- 


source code for this one - il 's just too Ions. However, this program 


AB 


550data 78, 80, 85, 84,163, 73, 78. 80 


would be an ideal candidate for the Unassembler program also in 


, LL 


560 data 85,212, 68, 73,205, 82. 69, 65 


this issue. With a little work it wouldn 'l be hard to convert Super 
Sound into a TransBASfC module. M.Ed. 


Nl 
AM 


570dala196, 76, 69.212, 71, 79. 84,207 
580data 82. 85,206, 73,198. 62. 69. 83 



Tfw TfOMQCtOf 



63 



\talume 6, lutM 04 





FE 


590 data 84, 79, 82,197, 71, 79, 83, 85 


IC 


1210data 76, 79,215, 66,175, 72, 73, 71 




PO 


600 data 194, 82, 69, 84, 85, 82,206, 82 


LE 


1220data200. 0. 0. 42.193, 57,193, 91 




NK 


610 data 69,205,223, 79,206, 87, 65, 73 


ID 


1230datal93, 107, 195. 71,194,146.194,217 




IP 


620 data 212, 76, 79, 65,196, 83, 65, 86 


AH 


1240data194, 36,195,208,193, 28,194,144 




AC 


630dala197, 86, 69, 82, 73, 70,217, 68 


JG 


1250data196, 181,195, 240, 196, 192, 196, 96 




HD 


640data 69,198, 80, 79, 75,197, 80, 82 


EP 


1260data197, 48.197,176,197,224,197, 96 




NF 


650 data 73, 78, 84,163, 80, 82, 73, 78 


NA 


1270 data 169, 0,141,253, 3,170,160,255 




NA 


660data212, 67. 79. 78,212, 76, 73, 83 


PC 


1280 data 141, 254, 3,189, 25,192, 16, 9 




CN 


670data212. 67. 76,210, 67, 77,196, 83 


JE 


1290dala 72,169, 1,141,253, 3,104, 41 




JD 


680 data 89,211, 79, 80, 69,206, 67, 76 


AB 


1300 data 127, 200, 232, 209, 122. 208, 8, 173 




AF 


690data 79, 83,197, 71, 69,212, 78. 69 


HC 


1310data253, 3,240,231, 76, 4,193,169 




CN 


700data215, 84, 65, 66,168, 84,207, 70 


LC 


1320 data 0, 141, 253, 3, 238, 254, 3, 238 




CD 


710dala206, 83, 80, 67,168, 84, 72, 69 


MJ 


1330 data 254, 3,160,255,189, 25,192,240 




CC 


720 data 206, 78. 79,212, 83, 84, 69,208 


JG 


1340 data 45, 16, 4,232, 76,204,192,232 




KF 


730dala171,173, 170, 175.222, 65, 78,196 


PA 


1350 data 76, 245, 192. 200. 230, 122, 208, 2 




FO 


740data 79,210,190,189.188, 83, 71,206 


DH 


1360 data 230. 123, 136, 208, 247, 169. 156, 141 




PE 


750data 73, 78,212, 65, 66,211, 85, 83 


00 


1370data 37,193,169,192,141, 38,193,174 




PR 


760data21O, 70, 82.197, 80, 79,211. 83 


GG 


1380data254, 3,240, 7,238, 37, 193,202 




BG 


770data 81,210, 82, 78,196, 76, 79,199 


CM 


1390data 76, 27,193,108,156,192, 76, 96 




FJ 


780 data 69, 88,208, 67, 79,211, 83, 73 


LL 


1400 data 196, 169, 0, 168, 153, 0,192,153 




PB 


790 data 206, 84, 65,206, 65, 84.206, 80 


NG 


1410data 0,212.200,192, 25,208,245, 96 




KJ 


800 data 69, 69,203, 76, 69,206, 83, 84 


DL 


1420data 32,158,173, 32,170,177,170,240 




MH 


810 data 82,164, 86, 65,204, 65, 83,195 


CA 


1430data 3, 76, 72,178,192, 16, 16,249 




lA 


820 data 67, 72. 82,164, 76, 69, 70, 84 


IK 


1440 data 140, 252. 3.173. 24,192, 41,240 




M 


830 data 164, 82, 73, 71, 72, 84,164, 77 


BK 


1450data 13,252. 3,141, 24.192,141, 24 




PC 


i 840 data 73, 68,164, 71,207, 0, 0, 


HD 


1460data212, 96, 32,158.173. 32,170,177 




AC 


850 data 0, 0, 0, 0, 0, 0, 0, 


FA 


1470data170, 240, 3, 76, 72,178,152,240 




KG 


860 data 0, 0, 0, 0, 0, 0, 0. 


JN ■ 


1480 data 250, 192, 4, 16,246,169, 4,136 




ED 


870 data 0, 0, 0, 0, 0, 0. 0, 


FP 


1490data240, 6, 24,105, 7, 76,112,193 




OD 


880 data 0, 0, 0, 0, 0, 0, 0, 


KE 


1500datal41,252, 3, 32,253, 174, 169, 128 




IE 


890 data 0, 0, 0, 0, 0, 0, 0, 


MB 


1510datal41,205, 192. 141,246, 192, 169, 96 


! 


OF 


900 data 0, 0, 0, 0, 0, 0, 0, 


LI 


1520data141, 14.193, 32,193,192.169, 25 




MF 


910 data 0, 0, 0, 0, 0, 0, 0, 


BF 


1530data141,205, 192, 141,246. 192, 169, 169 




GG 


920 data 0, 0, 0, 0, 0. 0, 0, 


AN 


1540data141, 14, 193,238,254, 3,238,254 




AH 


930 data 0, 0, 0, 0, 0, 0, 0, 


PI 


1550daia 3,173,254, 3, 74,201, 3,208 




KH 


940 data 0, 0, 0, 0, 0, 0, 0, 


FO 


1560dala 5,169, 4, 76,181,193,201, 4 




El 


950 data 0, 0, 0, 0, 0, 0, 0, 


GA 


1570data208. 2,169, 8, 10, 10, 10, 10 




0! 


960 data 0', 0, 0. 0. 0, 0, 0, 


BE 


1580 data 172, 252, 3,141,252, 3,185, 




IJ 


970 data 0. 0. 0. 0, 0, 0, 0, 


LM 


1590data192. 41, 15, 13,252. 3,153, 




CK 


980 data 0, 0, 0, 0, 0, 0, 0, 


KE 


1600 data 192. 153. 0,212, 96. 0. 0. 32 




MK 


990 data 0, 0, 0, 0, 0, 0, 0, 


FB 


1610data158, 173. 32, 170, 177, 170,240, 3 




GL 


1000 data 0, 0, 0, 0, 0, 0. 0, 


CG 


1620data 76, 72,178,152,240,250,192, 4 




AM 


1010 data 0, 0, 0, 0, 0, 0, 0, 


CM 


1630data 16,246,169, 0,136,240, 6, 24 




KM 


1020 data 0, 0, 0, 0, 0, 0, 0, 


AD 


1640 data 1 05, 7, 76, 229, 1 93, 1 41 , 252. 3 




EN 


1030 data 0, 0, 0, 0, 0, 0, 0, 


OP 


1650data 32,253,174, 32,158,173, 32,112 




ON 


1040 data 0, 0, 0, 0, 0, 0, 0, 


EJ 


1660 data 196, 72,152,172,252. 3,153, 







1050 data 0, 0, 0, 0, 0, 0, 0, 


MF 


1670 data 192, 153, 0, 212, 104, 200, 153, 




PB 


1060 data 67, 76, 69, 65,210, 86, 79, 76 


JF 


1680 data 192, 153, 0,212,200,200,200, 185 




HO 


1070data 85, 77,197, 87, 65, 86,197, 80 


EK 


1690da1a 0, 192, 9, 1, 153, 0, 192, 153 




MB 


lOeOdata 85, 76, 83,197, 65, 84, 84, 65 


II 


1700 data 0,212, 96, 32,158,173, 32,170 




PN 


1090 data 67,203, 68, 69, 67, 65,217, 83 


FA 


1710 data 177, 170,240, 3, 76, 72,178,152 




PC 


1100 data 85, 83, 84, 65, 73,206, 82, 69 


IL 


1 720 data 240, 250, 1 92, 4, 1 6, 246, 1 69, 4 




FF 


inOdata 76, 69. 65. 83.197, 80, 76, 65 


DG 


1730 data 136, 240, 6, 24,105, 7, 76, 49 




EG 


1120data217. 79, 70,198, 70, 73, 76, 84 


LF 


1740data194, 168, 185, 0, 192. 41.254, 153 




LF 


11 30 data 69, 82, 79, 70,198, 70, 73, 76 


DP 


1750data 0,192,153, 0,212, 96, 32,158 




HG 


1140 data 84, 69,210, 83, 89, 78, 67. 79 


KE 


1760 data 173, 32,170,177,170,240, 3, 76 




C 


1150dala 70,198, 83, 89. 78.195. 82, 73 


DF 


1770data 72,178.152,240,250,192, 4. 16 




DC 


lieOdala 78, 75, 70.198, 82. 73, 78,199 


CO 


1780 data 246, 169, 5,136,240, 6, 24.105 




LG 


11 70 data 82. 69. 83, 17, 65, 78, 67,197 


BL 


1790 data 7, 76. 92.194,141,252, 3, 32 




BN 


11 80 data 75, 73, 76,204, 0, 0, 0, 84 


GG 


1800 data 253. 174, 32.158.173, 32.170,177 




AB 


1190data 82,201, 83, 65,215, 80, 85, 76 


OD 


1810data170,208, 220, 192, 16, 16,216,152 




KN 


1200dala 83,197, 78, 79, 73, 83,197. 


GA 


1820data 10, 10, 10, 10,172,252, 3,141 
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GL 


1830data252. 3,185, 0,192, 4l', 15, 13 


CD 


2450data247. 183, 164. 20,165, 21, 96,160 




MD 


1840data252, 3, 153, 0, 192, 153, 0,212 


OJ 


2460data 1,177,122. 16, 4, 41,127,145 




IL 


1850data 96, 32,158.173, 32,170,177,170 


EL 


2470datal22, 76,193.192, 0, 0, 0, 




Gl 


1860data240, 3, 76, 72,178,152,240,250 


FO 


2480 data 0, 0, 0, 0, 0, 0, 0, 32 




NF 


1870data192, 4, 16.246,169, 5,136,240 


Fl 


2490 data 1 58, 1 73, 32, 1 70, 1 77, 1 70, 240, 3 




Fl 


1880 dala 6, 24,105, 7, 76,167,194,141 


CN 


2500 data 76, 72,178,152,240,250,192, 4 




NH ■ 


1890dala252, 3, 32.253,174, 32,158,173 


AE 


!2510data 16,246,169,255, 56,132, 2,229 




PN 1 


1900data 32,170,177,170,208,220,192, 16 


HN 


2520data 2, 45, 23,192.141. 23,192,141 




OB ' 


1910data 16,216,152,172,252, 3.141,252 


KN 


2530data 23,212, 96, 7. 12. 5. 14, 32 




NJ 


1920 data 3,185, 0,192, 41,240, 13,252 


Gl 


2540dala 18, 5, 5, 19, 15, 18, 0, 32 




HP 


1930data 3,153, 0,192,153, 0.212, 96 


BM 


2550 data 1 58, 1 73, 32,170,177,170,240, 3 




LL 


1940data 32,158,173, 32,170,177,170,240 


OA 


2560data 76, 72,178,152,240,250,192, 4 




DP 


1950data 3, 76, 72,178,152,240,250,192 


GH 


2570data 16,246,169, 4,136,240, 6, 24 




CF 


1960 data 4, 16,246,169, 6,136,240, 6 


ON 


2580 data 1 05, 7, 76, 213, 1 96, 1 68, 1 85, 




FB 


1970 data 24,105, 7, 76,238,194,141,252 


JD 


2590 data 1 92, 9, 2, 1 53, 0, 1 92, 1 53, 




MJ 


1980data 3, 32,253,174, 32,158,173, 32 


DE 


2600 data 21 2, 96, 0, 0, 0, 0, 0, 32 


1 

j 


AC 


1990data170, 177, 170,208,220, 192, 16, 16 


NP 


2610data158, 173, 32,170,177,170,240, 3 




JJ 


2000data216, 152. 172,252, 3, 10, 10, 10 


KE 


i 2620 data 76, 72,178,152,240,250,192, 4 


1 


AA 


2010data 10,141,252, 3.185, 0,192, 41 


CL 


2630dala 16,246,169, 4,136,240, 6, 24 


1 


EO 


2020data 15, 13,252, 3,153, 0,192,153 


CM 


2640 data 105, 7, 76, 5,197,168,169,255 




CN 


2030data 0,212, 96, 32,158,173, 32,170 


A 


2650data 56,233, 2, 57, 0,192,153, 


1 

1 

1 


PE 


2040data 177,170, 240, 3, 76, 72.178,152 


JF 


2660 data 192, 153, 0, 212, 96, 160, 3, 177 


1 

1 
1 


KA 


2050 data 240, 250, 1 92, 4, 1 6. 246, 1 69, 6 


DN 


2670 data 1 22, 201 , 203, 208, 7, 1 69, 75, 1 45 


1 


KK 


2060data 136,240, 6, 24,105, 7, 76, 57 


AE 


2680data122, 76,193,192, 76,142,197, 32 


1 


AD 


2070data 195, 141,252, 3, 32,253.174, 32 


NE 


2690data158, 173, 32,170,177,170,240, 3 




DF 


2080data158, 173, 32,170,177,170.208,220 


KJ 


2700data 76, 72,178.152,240,250,192, 4 




ND 


2090data192, 16, 16,216,152,172,252, 3 


CA 


2710 data 16,246,169. 4,136,240, 6, 24 




IC 


2100data141,252, 3,185, 0,192, 41,240 


MP 


2720data105, 7, 76. 69,197,168,185, 




DM 


2110data 13,252, 3,153, 0,212,153, 


HM 


2730data192, 9, 4.153, 0,192,153, 




10 


2120data192, 96, 32,158,173, 32,170,177 


PM 


2740 data 212, 96, 0, 0, 0, 0, 0, 32 




JJ 


2130data170, 240, 3, 76, 72,178,152,240 


PN 


2750data 53,198, 32,170,177,170,240, 3 




FG 


: 2140data250, 192, 4, 16,246,169, 2,136 


GN 


2760data 76, 72,178,152,240,250,192, 4 




DK 


2150data240, 6, 24,105, 7, 76,128,195 


OD 


2770data 16,246,169, 4,136,240, 6, 24 




NH 


2160data141,252, 3, 32,253,174, 32,158 


JF 


2780 data 105, 7, 76,117,197,168,169,255 




JK 


i 2170data173, 32,170,177,201, 16, 48, 8 


AB 


2790 data 56.233, 4, 57, 0,192,153, 




NH 


2180data201, 17, 16,215,192, 0,208,211 


FO 


2800data192, 153, 0,212, 96,160, 3,177 




HM 


2190data 170, 152, 172, 252, 3, 153, 0, 192 


MB 


2810data 122,201, 145,208, 10,169, 17,145 




A 


2200 data 153, 0,212,200, 138, 153, 0,192 


HG 


2820data122, 76,193,192, 76, 8,175, 76 


1 


Fl 


! 2210datal53, 0,212, 96, 32,158,173, 32 


CA 


2830 data 8,175, 0, 0, 0, 0, 0, 




JA 


2220datal70, 177, 170, 240, 3, 76, 72,178 


NE 


2840 data 0, 0, 0, 0, 0, 0, 0, 32 




KE 


2230 data 152, 240, 250, 192, 4, 16, 246, 234 


HE 


2850data 17,198, 32,170,177,170,240, 3 




DN 


j 2240 data 234, 234, 234, 1 92, 3, 208, 1 , 200 


CH 


2860data 76, 72,178,192, 16, 16,249,152 




KP 


2250data140, 2, 0, 32,253,174,169,145 


PB 


2870data 10, 10, 10, 10,141,252, 3,173 


1 


KA 


2260data141,205, 192, 141,246, 192. 169, 96 


HF 


2880data 23,192, 41, 15, 13,252, 3,141 




00 


2270data141, 14,193, 32,120,196,169, 25 


JM 


2890data 23,192,141, 23,212, 96, 0, 




PD 


2280datal41,205, 192, 141,246, 192, 169,169 


KC 


2900 data 0, 0, 0, 0, 0, 0, 0,173 




OL 


2290 data 141, 14, 193, 238, 254, 3, 238, 254 


KB 


2910data 24,192, 48, 5, 9,128, 76,236 




NH 


2300 data 3,173,254, 3, 74,201, 3,208 


GG 


2920data197, 10, 74,141, 24,192,141, 24 




U 


2310 data 3, 24,105, 1, 10, 10, 10, 10 


FL 


2930data212, 96,173,254, 3,201, 32,208 




GC 


2320data141,254, 3, 32,243,197, 32,158 


KB 


2940data 20,165,122,208, 2,198,123,198 




BE 


2330data173, 32,170,177,201, 32, 48, 8 


HI 


2950 data 122, 169,175, 160, 0, 145, 122,230 




DC 


2340data201, 33, 16,161,192, 0,208,157 


OM 


2960data 122, 208, 2, 230, 123, 76, 253, 174 




OF 


2350data170, 152, 41, 7,141, 21,192,141 


EL 


2970 data 162, 5, 165, 122,208, 2.198,123 




BH 


2360data 21,212,152, 74, 74, 74.141,252 


GN 


2980 data 198, 1 22, 202, 208, 245, 1 69, 1 45, 1 60 




OA 


2370data 3,138, 10, 10, 10, 10. 10, 13 


El 


2990 data 0, 145, 122, 162. 5, 230, 122, 208 




GC 


2380data252, 3,141, 22,192,141, 22,212 


LP 


3000 data 2,230,123,202,208,247, 76,158 




IJ ■ 


2390data234.234, 234,234, 173, 23,192, 13 


NL 


3010 data 173, 0, 0, 0,162, 3,165,122 




EH 


2400data 2, 0,141, 23,192,141, 23,212 


PL 


3020 data 208, 2, 198, 123,198,122,202,208 




LG 


2410data173,254, 3, 13, 24,192,141, 24 


FN 


3030 data 245, 169,203, 160, 0,145, 122, 162 




IL 


2420data192, 141, 24,212, 96, 0, 0,169 


OK 


3040 data 3, 230, 122, 208, 2, 230, 123, 202 




IN 


2430data 25, 141.205, 192, 141,246, 192, 169 


ID 


3050 data 208, 247, 76,158,173, 0, 0,169 




OM 


2440 data 169, 141, 14,193. 76, 30,197. 32 


FD 


3060data 54,133, 1, 76,131,164, 0,256 
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Eliminating The BASIC Loader 

Chris Zamara. Technical Editor 



In the pages of The Transactor and also in many other 
computer publications, you'll find machine language programs 
listed in the form of lots of BASIC DATA statements, and a bit of 
code to put the DATA values into memory. Our reason for 
printing the program this way is simply so that any Commo- 
dore owner can enter the program, even without a machine 
language monitor or assembler. We would alienate a large 
number of readers if we assumed that they had certain software 
and wrote all of our articles accordingly. 

Entering a program as decimal numbers contained within 
DATA statements isn't so bad, but it really is a waste of space 
and time to constantly use the program in this form. Each 
number in the DATA statements represents only one byte of 
machine code, so a BASIC loader typically lakes up about five 
times as much memory as the machine language program 
itself, which is put into memory somewhere when the BASIC 
loader is RUN. Running the loader, especially for a big pro- 
gram, can also take a considerable length of time. Another 
problem with having an ML program in BASIC form is the fact 
that many ML subroutines are designed to be used from an 
existing BASIC program, meaning that the loader has to be 
merged, or loaded and run as an overlay, wasting more time 

yet. 

Ideally, once a machine language program has been entered, it 
will exist in pure machine language form on disk or tape. Such 
a file can just be LOADed into its appropriate memory address 
and executed with a SYS command. The advantages of such a 
program: 

1) It takes up much less space on disk or tape than a BASIC 
loader 

2) It can be LOADed and not interfere with a BASIC program 
currently in memory 

3) There is no waiting for a BASIC loader to put the program 
into memory 

Using pure ML files on disk or tape, you can have a BASIC 
program which loads an ML program, executes it, then loads 
another one, etc. It is clearly desirable to put your BASIC 
loaders into pure ML form. 



There are two ways to create an ML program file from a BASIC 
loader: RUN the loader, then save the resultant ML program 
from memory, or use the loader to write directly to a disk (or 
tape) file. 



Eliminating the Loader, Metliod ^1 

As an example, let's use the "Quake" program from this issue's 
Bits & Pieces section. It is listed in loader form (with verifizer 
codes to cut down the entry errors). To create a pure ML 
"Quake" program, we can just save it from memory after the 
loader is RUN. From line 30 of the loader, we can see that the 
ML program occupies addresses 49152 through 49342. All we 
have to do is save that range to a program file on disk. That can 
be accomplished with an ML monitor, or for the C64/VIC we 
can use the technique given in Volume 5 Issue 5's Bits & Pieces 
section to save a range of memory from BASIC: 

sys57812"0:quake.mr.8:poke193,0:poke194J92 
:poke174,190:poke175,192:sys62954 

(The start address, SCOOO goes into 193-194 and the end 
address, SCOBE into 174-175.) 

The program ''quake,mr will now be on disk, and can be 
loaded with the non-relocating LOAD command and exe- 
cuted: 

load-quake.ml" ,8,1 

sys49152 

The SYS address is determined from the loader program, where 
it is usually given in a REM statement or executed after 
POKEing in the DATA values. 



Metiiod *2 

The second method forces the loader to write the ML program 
directly to disk, instead of putting it into memory. This is 
superior to method *1 because it doesn't interfere with any 
program that might be in memory when the loader is run. 
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The BASIC loader has to be modified slightly. The firs? thing to 
do is to add a command at the beginning of the loader which 
OPENS the file. Take the "'Quake'^ loader, and add this Sine: 

16open1,8.1/0:quake.mr 

(You must use a secondary address of 1 unless the suffix ' ,p,w " 
is added to the filename.) 

The next step is to add a statement to ttie loader which will 
write the program's LOAD address to the file. This will instruct 
the LOAD command where in memory to put the program. The 
LOAD address is the start value of the FOR. . .NEXT loop which 
puts the program into memory. Looking at line 30 in the 
"Quake'' program, we see that the start address of the ML 
program is 49152. This value must be written as the first two 
bytes in the now-open program file, in low, high format- Use 
the standard formula: 

hi = 49 152/256 
lo = 49152-10*256 
{lo = 0.hi = 192) 

For this example, then, we add the line; 

17print#1,chr$(0)chr$(192); 

Now, the main modification: change the loader so that it 
PRINTS to the above file instead of POKEing to memory. To do 
this, replace the statement in line 30: 'POKE I,A' with: 
TRiNT*I.CHR$(A);". 

The final step is to add a CLOSE statement after all writing to 
disk (this is crucial): 

45 CLOSE 1 

Once the loader has been modified in this way, RUN it and wait 
while it writes the file. Af^er it's finished (assuming no DATA 
errors), you'll have the file " quake,ml " on disk, and the loader 
will never be needed again. You'll probably want to keep it, 
though, as a backup. 



LOADing the ML Program 

Your newly-created ML program can't be simply LOADed and 
RUN like the loader. You have to use the no n- relocating LOAD 
command to place the program at its proper load address, then 
you have to execute the program with a SYS (or possibly a USR) 
command: 

load "quake.mr ,8,1 
sys49152 



There is a slight complication when LOADing an ML program 
of this nature. BASIC sets it start and end program pointers after 
a direct-mode LOAD, so they will be messed up after you 
LOAD the ML program. You will not be able to edit your BASIC 
program after the load. The easy but possibly undesirable 
method is to issue a NEW after loading the ML program- 
Alternatively, if you are using the programmer's utility package 
■POWER', a FIX or PTR command will fix up the pointers for 
you. 

The other solution is to LOAD the ML program from an 
executing BASIC program. When a LOAD is encountered in a 
program, it does not change the pointers. It does re-run the 
BASIC program, though. It you want to LOAD an ML program 
from somewhere witliin the depths of a BASIC program, then 
continue execution, you can take advantage of the fact that 
variables aren't destroyed by the auto-run. For example: 



10 on a goto 30,60, 180 

20a=1:load"mlprgr,8,1 

30... 

40. . . 

50a = 2:loac)"mlprg2",8,1 

60. . . 



170a = 3:load-mlprg3\8,1 
180. , . 



Method *2 Summary 



1) Add to start of loader: 

open 1,8.1, "Oiprog name" 
print#1,chr$(lo)chr${hi}; 
Where lo,hi are the program start address 

2) Replace 'POKE l.A^ with ■PRINT*UCHR$(A);" 

3) Add after FOR. . .NEXT loop: 

CLOSE 1 



By choosing your favorite method from the above, you can 
transform all of your ungainly loader programs into efficient, 
ready-to-use machine language routines. Just one more way to 
conserve the precious commodities of time and space. 
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U What ? 



Jesse Knight 
Brazoria, TX 



Its a case of mutual confusion. . . 



[fyou wanted tosenda reset command to the 1541, yoi3 might confusion with the drive waiting on fhe computer and the 
use code like this: computer waiting on the drive. 



OPEN 1.8.15: PRINT#1/UJ"^ CLOSE 1 

That seems simple enough; open the command channel, send 
the command UJ, close the command channel. It would be 
simple, and it would work fine, if it weren't for the CLOSE 1 at 
the end. 

When the 1541 receives the UJ command, it begins the full 
reset sequence. This involves the testing of its 1 6K of ROM and 
2K of RAM, While it is doing this, it ignores everthing else. The 
CLOSE command, in the example above, complicates things 
because it causes the computer the send a comrriand byte to the 
drive. The computer tries to send the byte to the drive, but it 
encounters a problem. 

To send the byte to the drive, the computer hrst sends an 
ATTENTION signal over the serial bus. Then the computer 
looks for an ATTENTION ACKNOWLEDGE signal from the 
drive. In this case, it receives one. Not because the drive 
actually sent it. at this point the drive is still busy with the 
ROM/RAM tests, but because of the value in the data port for 
the serial bus by the drive. The next thing the computer does is 
wait for another signal, called READY FOR DATA, from the 
drive. It will wait for this signal forever. 

Normally this is an important and useful part of the serial bus 1/ 
0, !f the drive happened to be busy formatting a disk and it 
received the ATTENTION signal, it would respond with the 
ATTENTION ACKNOWLEDGE signal. Then it would finish 
formatting the disk. After it hnished formatting the disk, it 
would send the READY FOR DATA signal and the communica- 
tions could continue. If the drive didn^l send (he ATTENTION 
ACKNOWLEDGE signal, the computer would generate a DE^ 
VICE NOT PRESENT error. 

That's what might happen normally, but the problem is what 
happens during the reset sequence. The computer has received 
the ATTENTION ACKNOWLEDGE and is waiting tor the 
READY FOR DATA signal. Once the drive finishes the reset 
sequence, it waits for something to do. It doesn't know it's 
supposed to be listening to the computer. It's a case of mutual 



There are two solutions to this problem. The first should be 
rather obvious. Use a delay after sending the UJ command 
before attempting to access the drive. I have found a FOR NEXT 
loop from 1 to 1 000 will work fine. The second solution is to use 
the alternate reset command, UI. The Ul command performs a 
reset but it skips the ROM/RAM tests. This makes two differ- 
ences. First, it takes less time. Secondly, mostof the2Kof RAM 
is not altered, whereas UJ sets it all to zero. 

There are actually two things the Ul command can be used for, 
UI alone causes the reset skipping the ROM/RAM test. The 
second is to set a timing value the 1541 uses for the serial 1/0. 
Ul + causes it to be set to work with the 64, while UI- causes it 
to be set to work with the VIC-20, It will work with the VIC-20 
with either setting, but using UI- gives a slight increase in data 
transmission rate. The longer delay is needed with the 64 
because of the VIC II chip. 

The program in listing 1 will allow you to see part of the serial 
bus I/O. The program copies the BASIC and KERNAL ROMs to 
RAM and makes a patch to the routine used to send data over 
the bus. This patch causes the screen border color to be 
incremented each lime the bus is checked for the READY FOR 
DATA signaL When executed, the program uses three methods 
lo reset the 1 54 1 . so you can see how they work. When it gets to 
the last one. UJ without any delay, the computer will appear to 
lock up. The border will be a mass of colored lines. Press the 
RUN/STOP and RESTORE keys to regain control. 

At this point the command POKE 1,53 wilt switch to the 
modified KERNAL in RAM. Now each time the computer sends 
data to the drive the border color will change. Try loading and 
saving programs or data files and watch what happens. Some- 
Ihing else you may want lo try is this: use something like: 

OPEN 15,8,15, "NO:EXAMPLE,XX" 

to start a disk format. While the format is in progress, give the 
command: 

LOAD "$",8 
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Watch what happens now. and when the disk format is fin- 
ished. 

Who knows, you might have a flashing good time. 



BM 
KO 
JK 
JA 
OA 
AA 
OG 
GL 
Dl 
NG 
CL 
KE 
Bl 
KM 
DJ 
GN 
HN 
NN 
GW 
EL 
EK 
IN 
DO 
GC 
HC 
NC 
CB 
BF 
EP 
LC 
DO 
GH 
HH 
LC 



1 00 rem visual u| jk 8/23/85 

1 1 print chr$(l 47) " copying rom to ram, , , " 

1 20 print " takes about one minute " 

1 30 for X - 40960 to 491 51 , poke x,peek(x): next 

140 for x-57344 to 65535: poke x,peek{x): next 

1 50 for X = to 5: read a: poke 491 52 + x,a; next 

160 poke 60763,0. poke 60764,192 

170 poke 1,53 

1 80 print: print " press space to continue " 

190geta$:ila$<>"[1 space]" thien190 

200 print: print: print " uj using delay. " 

210open 1,8,15 

220print#1,"uj" 

230forx-1 to 1000: next 

240 input#1 ,en$,em$,et$,es$ 

250pnnten$,ern$ 

260 close 1 

270 print: print " press space 1o continue " 

280 get a$: if a$<> " [1 space] " then 280 

290 print: print: print " ui without delay. " 

300 open 1,8,15 

310print#1,"ui" 

320 inpul#1 ,en$,em$,et$,es$ 

330pnnten$,em$ 

340 close 1 

350 print: print " press space to continue " 

360 get a$. if a$<> " [1 space] " then 360 

370 print: print " uj without delay. " 

380 open 1,8,15 

390print#1,"uj" 

400 inpu!#1 ,en$,ern$,et$,es$ 

410pnnten$,em$ 

420 close 1 

430 data 238, 32.208, 76,169,238 



1571 Notes 

The 1571 drive is a very capable unit. Commodore promised 
that this dfivt? would bo totally compatable with the 1541, and 
it really appears to be. 

It is also intelligent. When connected to the 128 computer, it 
works in 1571 mode. If it happens to be connected to a G4, it 
works like a 1541. Ttiat is done automatically. 

There are added commands that allow the modes and features 
to be controlled through software as well. To help maintain 
compatability with the 1541, these commands were added as 



part of the UO command. On the 1541, the UO command was 
only used to reset the pointer to the user command jump table. 
On the 1571 it is used for much more. 

The command UO>M0 places the drive in 1541 mode. In this 
mode it acts just like a 1541. 

The command U0>M1 places the drive in 1571 mode. In this 
mode the fast serial bus routines can be used. Disks are double 
sided by default in this mode. That means 1328 blocks free 
instead of just 664, The back side of the disk is formatted with 
tracks 36 through 70. This is treated the same way as with the 
8050 and 8250 drives. The single sided disks can be read in the 
double sided mode and the front side of double sided disks can 
be read in single sided mode. 

If you think that's confusing, wait until you read about the next 
command. The commands UO>H0 and UOHl are used to 
select which head to use. This command only works when the 
drive is in 1541 mode. This allows each side of a disk to be 
treated as a separate disk, with tracks 1 through 35 on each 
side. It's not the same as cutting an extra notch in a disk to use 
the back side, since the rotational direction is different. 

The command "UO>R" +chr$(X) sets the DOS variable RE- 
VCNT to the value of X. REVCNT is u,sed to control the number 
of tries made to recover from a read error. The upper bit is used 
to control the the head "bump'. The number of retries can be set 
fo 10 and the head bumping disabled by using "UOR" 
+ chr$(138). 

The command " UO>S " + chr$(X) sets the sector interleave to 
the value of X. The normal interleave is 10. 

There is even a command for setting the device number. 
U0>'* + chr$(X),sets the device number to the value of X. It may 
be any value from 4 through 30, 

The device number can still be changed through hardware. 
Fortunately, the case doesn't have to be opened to do this. 
There are two DIP switches on the back of the drive to use. 
Device numbers from 8 to 11 can be selected this way. 

There are more commands, but they are mostly for the MFM 
mode. One command lets you determine the disk format (MFM 
or GCR). Another is for formatting a disk in MFM format. Even 
in MFM mode the !57! is flexible. It can handle tracks with 
128. 256, 512, or 1024 byte sectors. 

There's no doubt that the 1571 is a capable unit, it will work 
fine with disks and software for the 1 54 1 . The new commands 
and features make it a really nice drive. It's at least enough to 
keep a person busy. 
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Solving SAVE 
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If you've been following the SAVE® scene, then you Ve proba- 
bly read by now the article in Compute by Phillip A. Slaymaker, 
Mr, Slaymaker has presented some truly significant informa- 
tion. His program demonstrates the bug in any 1541 thus 
proving that nobody is immune. 

Slaymaker's program creates a disk that will show a failure to 
allocate sectors that are used by a PRG file. Once the disk is set 
up. he specifies a LOAD followed by three SAVE@'s. On the 
third SAVE® the Blocks Free count is 4 greater than it should 
be. However, if the LOAD command is entered with a drive 
number included, the third SAVE® does not fail. 

Using this information along with the veritable encyclopedia of 
other data weVe collected, we managed to produce some 
rather interesting results. 

First of all, Slaymaker states in the article that, "the key to 
avoiding the SAVE® bug is to always specify drive when 
performing any disk drive function, or to always reset the drive 
before any SAVE® operation.'\ A 'UJ' command is suggested 
for resetting the drive, but as you'll note in the previous article 
(V What?" page 68) there are certain pitfalls to be aware of. In a 
telephone conversation with Phillip Slaymaker I learned that 
he too is aware of the UJ problems but, understandably, 
including them was beyond the scope of his article. 

Before we even entered the Slaymaker demo program, we 
tested the drive theory with the Whittern SAVE® loop we 
published some issues back. Whittern's program omits the 
drive number in all three LOAD commands. The program was 
modified to include ''0:" in each. Then, using a newly format- 
ted disk, 5 programs consisting only of REM statements, all 
equal in size, were SAVEd to the disk, followed by the modified 
Whittern test. The drive was reset with a power off/on and the 
test program was LOADed with drive prefixed to the fi- 
lename. 

Guess what. No sooner had the second SAVE® been per- 
formed when 1 got the urge to hit the STOP key. A quick look at 
the files showed the program selected by the second SAVE® 
had overwritten the program selected in the first SAVE®. 
Inotherwords, the first SAVE® failed to allocate sectors, and the 
second SAVE® came along and clobbered them. As it turned 
out, the program that got clobbered was ^'program 1"- the first 
in the directory and the first to be written to the fresh diskette. 



The 5 programs stored were short 2 block files. All 5 programs 
p!us the test program fit comfortably on one track. Slaymaker 
claims that files spanning more than one track are more 
susceptible. Further tests showed this claim to be true, how- 
ever it seems that no file is absolutely safe. Further in our 
telephone conversation we also agreed on this. 

Although P.A. Slaymaker has planted an impressive milestone, 
there are still some unexplained phenomena. For example, the 
block allocate failures are not limited to SAVE®. A Scratch 
followed by a SAVE in place of SAVE® in the Whittern test will 
also scramble files. Secondly, the Slaymaker demo was re-cut 
for the 4040 drive but failed to show any problem. Based on the 
number of SAVE® reports prior to the 1540/41, recent devel- 
opments, AND personal experience, it is highly doubtful that 
the other CBM drives are failsafe (and I could probably find at 
least a few people who would agree), Mr. Slaymaker has indeed 
discovered an important flaw, but it may not be the only one! In 
our conversation we agreed on this too, however, the Slayma- 
ker demo is so far the closest most finite test there is for solving 
this mystery. 

Using Slaymaker's approach, we decided to make new test 
programs that would monitor the internal activities of the DOS, 
The fact that 1 54 1 DOS is a descendent of the dual drive DOS is 
clearly explained in Slaymaker's article and clearly evident 
from looking at 1 54 1 DOS code. We all know the 1 54 1 has only 
one drive, but under certain predictable conditions the DOS 
prepares itself to handle two. 

Before I continue, Td like to point out that this is probably the 
most difficult explanation I've ever attempted. Should you 
notice some repetition, it's purely in the interest of clarity. 

When no drive number is specified in commands sent to a dual 
drive, the DOS will activate both drives (if necessary). For 
example, Initialize without a drive number will initialize both 
drives. Same with Validate, and a LOAD will access both drives 
before reporting File Not Found. Even though the 1541 only 
has one drive, the DOS will allow for the 'presence" of drive 1 . 
That is, a LOAD with no drive number may hnd the file on 
drive 0, but DOS allows for the possibility that drive 1 may need 
service- This possibility means that work space must be set 
aside in disk RAM to service drive 1 for things like the drive 1 
Block Availability Map (BAM), Remember, this activity is the 
result of residue left over from dual drive DOS. 
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The 1541 DOS uses five pages of disk RAM as "buffers". A 
buffer is 256 bytes long and always begins at a page boundary. 
The first buffer is at $0300 to $03FR The second buffer is at 
$0400, and the fifth buffer slarts at $0700. Two other buffers, 
the Command Buffer and the Error Buffer, are situated in page 
$02 and treated as the sixth buffer. The DOS treats this buffer 
much like the others, but arranges for this space to be flagged 
as "always in use" so that no other buffer related activities can 
disturb it. 

Now al this point we are very close to publication and 
have conjured several theories about the internal work- 
ings of DOS. From here on we can only offer what we 
believe to be correct based on observations. We fully 
intend to continue our investigations and will probably 
have a more accurate story to tell by next issue. 

Theoretically, the 1541 need only accommodate one BAM, 
Upon performing the very first disk operation, the drive BAM 
is transferred from the diskette into the buffer at $0700 which is 
flagged as "in use", leaving four buffers unused. !f the first 
operation implies there may be a second drive, the DOS 
activates another buffer to host the drive 1 BAM. This leaves 
three buffers unused. 



As the write progresses, the image is adjusted for the sectors 
that have been written to. When all free sectors of the current 
track have been used up, a new track will be needed to 
continue. The DOS transfers the four-byte image back to the 
BAM buffer and it appears they will always be put back to the 
same four addresses they came from. As the BAM is updated 
the image is cleared with zeroes. So even if not all the sectors 
on the track were used, the image will now look as if they were. 
(This may be why some have reported diskettes that mysteri- 
ously "fill up'' as opposed to too many Blocks Free - we intend 
to investigate that too!) 

After the BAM is updated, the DOS searches out a new track 
with available sectors. Another tracks' worth of bytes are 
placed in the image, and the BAM buffer floats away again as 
the writing plows on. The BAM is only written to the diskette at 
the end of the operation. 

With only one buffer active as a BAM buffer, this operation 
seems to go without trouble, at least with the Slaymaker demo. 
But when two buffers are taken for BAM storage (remember 
way back when DOS allowed for the phantom drive?) the DOS 
is now burdened with the extra task of floating two BAM buffers 
instead of one. 



Let's assume only one buffer has been allocated for the BAM of 
drive 0. During a write operation to the disk, the DOS needs to 
use buffers that are often occupied by the BAM. A very peculiar 
activity begins here called ''floating BAMs". The DOS actually 
transfers the contents of the BAM buffer to other buffers which, 
in turn, become the new BAM buffer. As each block is pumped 
onto the diskette surface, the DOS must update the BAM with 
the new allocated sectors. Things are happening pretty quickly 
at this point (believe it or not) and the DOS doesn't have time to 
make all the calculations necessary to zoom in on the bit 
representing the sector it just wrote to. Instead, an "image" of 
part of the BAM is placed elsewhere in memory and updates 
occur here. Later the BAM is updated using the updated image. 
Let's expand on this. 

Since writing occurs to the sectors of one track at a time, the 
BAM information for that track is transferred from the BAM 
buffer to a BAM image at $02A1 to $02B0. Each track requires 
four bytes to represent the free/used sectors of the track. The 
first byte tells how many free sectors on the current track, the 
remaining three bytes show which sectors they are. A bit set to 
zero means used, bit= 1 means free. Three bytes times eight 
bits equals 24 bits, which is enough for even the largest tracks 
at the outside edge of the diskette. The 16 bytes from $02A1 to 
$02BO store track information for two tracks of drive and two 
tracks of drive 1. The last eight bytes should never be used. 
[One theory we toyed with was the possibility of updating to or 
from the drive 1 image by mistake, but have since discounted 
that theory as drive is specified in the SAVE® commands) 



During a write, the DOS is desperate for buffer space. Buffers 
that are active must be made inactive so the DOS can re-use 
them. This is done by a routine that "steals" buffers. In my 
conversation with P.A. Slaymaker, we agreed that the stealing 
routine could very possibly steal the buffer hosting the drive 
BAM. Should this happen the BAM would disappear com- 
pletely from disk RAM! Then another routine comes along and 
detects that nowhere in RAM is there a copy of the BAM. What 
happens now? The DOS re-reads the BAM from track 18, sector 
0, But this BAM reflects the state of the diskette before the 
writing started. Any information that was swapped from the 
image into the BAM buffer would be lost forever! This is what 
happens during Siaymaker's demo. 

We've come up with several theories and if it weren't for a 
printing press that can't do anything without this page we may 
have had time to eliminate all but one. By next issue we should 
know: 

1) Why the BAM is lost when two BAM buffers are activated, 
but also when only one is active. 

2) Why disks are filling up due to incorrect image swaps. 

3) Why SAVE® fails on the 4040 which doesn't use the floating 
BAM concept. 

4) The bytes to change in ROM to eliminate this bug. 
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Compu-toons 





HAAAAA! Egor. . . We've done it, . . 
Expanded memory to 3 Billion K! 



Forget it Ed, . . Your stupid computer isn't 
gonna tell us where the fish are. 



buf Tf^ ^^""e iUwH ev^'ve wA^ +>c 



i 4 






OK Ethel. . . One more POKE 
and we're instant Millionaires 
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WHILE HE'S OUT, APaV 
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News BRK 



Transactor News 

Submitting NEWS BRK 
Press Releases 

[f you have a press release which you 
would like (o submit for the NEWS BRK 
column, make sure that the computer or 
device for which the product is intended is 
prominently noted. We receive hundreds 
of press releases for each issue, and ones 
whose intended readership is not clear 
must unfortunately go straight to the trash 
bin. it should also be mentioned here that 
we only print product releases which are in 
some way applicable to Commodore equip- 
ment, with the exception of products or 
news of interest to the general computing 
public. 

Oops, Too Many Labels 

Did anyone receive two magazines last 
month? Or maybe you received a magazine 
even though your subscription had ex- 
pired. The reason? When a subscription 
expires, our data base flags it as 'Inactive' as 
opposed to deleting it completely. If that 
particular subscriber renews, only the flag 
need be changed which saves us the trou- 
ble of re-entering from scratch. After 6 
months inactive, the record is discarded. 
When the labels are printed, the system 
looks at this flag. Except last issue it didn'f. 
So instead of printing just the active sub^ 
scribers. it dumped the entire data base. 
Those few who received two are probably 
in our data base twice; once as 'active', the 
other 'inactive'- Regardless, if you received 
a magazine you weren't expecting, please 
keep it with our compliments. 

Late Note On Transactor Disk 7 

Transactor Disk 7 for the Networking and 
Communications issue contains a set of 
terminal programs for the 64. You may 
have noticed some problems with these 
programs but the fix is easy; 

open 1.8,15 

print*l,''rO:firstterm3bt = 0:firstterm3boot" 

Renaming that one file will eliminate all 
but one problem: the program ''extra ex- 
tra*' contains some brief instructions that 
refer to the file "firsttermS boot", but only 
perfectionists will want to change that. 



$4.50 Too Much 

Transactor back issues are $4,50 each. If 
you send us $4.50 for a back issue we've 
iust run out of, our policy was to send a 
refund of $4,50. But some U.S, readers 
have told us it costs them as much as $7,50 
to cash the cheque. So unless you object, 
we'll add 2 issues to your subscription in- 
stead. 



Commodore News 

Commodore Introduces 
Teclinical Bulletin 

Toronto — To provide the latest in techni- 
cal information, Commodore Business Ma- 
chines Limited is introducing 
TECHTOPICS - a bulletin program an- 
nouncing modifications, troubleshooting 
and other technical topics concerning 
Commodore computers and peripherals. 

The first seven issues in the series include: 
Troubleshooting tips for the 1 702 monitor; 
specs and assembly upgrade for the 1541 
disk drive: C64 PCB assembly update; C16 
and + 4 troubleshooh ng aides plus a listing 
of line definitions for the CI 6 and +4 

Issues of TECHTOPICS are available upon 
request from the Support Department. 
Commodore Business Machines Limited, 
For further information: 

Rainer Scharnke, 
National Service Manager, 
Commodore Business Machines 
3370 Pharmacy Avenue 
Agin court, Ontario 
M1W2K4 (416)499-4292 



COMAL News 

COIWAL 0.14 Price Reduction 

The power of Pascal, ease of BASIC, and 
fun of Logo turtle graphics can now be 
yours for only $7. This price includes the 
full COMAL 0.14 system as well as an 
inlerachve tutorial and automatic demon- 
stration disk. It is not copy protected. In 
fact, you are encouraged to make copies! 



I>eliixe Cartridge Price Cut 

Nowjor a limited time, you can get the 64K 
COMAL 2.0 cartridge at almost $40 off the 
regular price. The DELUXE COMAL 2.0 
CARTRIDGE PAK is now only $89.95 and 
includes a 320 page tutorial guide and 5 
demonstration disks. 

Price Protection Plan 

If you buy any COMAL book, disk, or car- 
tridge from COMAL Users Group, USA Lim- 
ited, you are now protected for one month. 
If the price drops within that time, you are 
entitled to a credit of the difference. This 
protection is just one of the many benefits 
shared by COMAL TODAY readers. For 
information about this new service contact: 

Denise Bernstein 

COMAL Users Group, USA. Limited 

6041 Monona Drive 

Madison, WI 53716 (608)222-4432 



Product News 

Toronto Computes! 

Toronto Computes! is a monthly, mass- 
circulation paper keeping its readers up to 
date on the local microcomputer scene. 
70,000 copies are distributed free through 
computer stores in the Toronto area and to 
homes in mid-town Toronto, a prime mar- 
ket area. The publication is geared towards 
all microcomputer users from the enthusi- 
ast to the novice. Toronto Computes! has 
information on the local scene that all com- 
puter users want to read - where to buy, 
available services, coming events, classi- 
fieds, innovative uses of computers in town 
and much more. Unlike the national and 
international computer magazines, To- 
ronto Computes! is not packed with high- 
level technical information of interest 
mainly to the computer buff. 

Cross Reference of 
Printers to Ribtwns 

Aspen Ribbons, Inc. of Lafayette, Colorado 
U,SA., has recently published its 1985 cat- 
alog of "Ribbons for Computer Printers," 
and a new (hrst edition) "Cross Reference 
Guide." 
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The 40-page catalog of "Ribbons for Com- 
puter Primers" contains the photographs 
and names of 840 computer printer rib- 
bons, complete with "How-lo-Order" in- 
structions and information on ribbon 
recycling and colors. It's attractive, easy to 
read, and FREE to anyone requesting a 
copy. Most of the ribbons listed are manu- 
factured by Aspen Ribbons. Inc, 

The new "Cross Reference Guide" contains 
over 8,000 ribbon-to-printer listings and 
over 1,500 computer ribbon model num- 
ber listings arranged in a 2-color, 56-page 
booklet. For more information: 

Aspen Ribbons, Inc, 

555 Aspen Ridge Drive 

Ufayetle, CO 80026 303 666-5750 



New Commodore 128 Books 

Commodore is once again drawing lots of 
attention with its new C-I28 computer. 
And with virtually no competition in the 
low-cost home market, the C-128 will be a 
runaway success - just like its predecessor, 
theC-64. 

So Abacus Software is announcing the first 
titles that will become part of a complete 
and in-depth reference library for the C- 
128- The initial titles and their availability 

are: 

C-128 Internals -An inside look at the 
three computers inside the C'I28. Includes 
ROM listings of BASIC 7.0 and operating 
system -Fall 1983 

C-I2S Tricks and Tips -collection of 
helpful techniques for anyone who pro- 
grams the C-128- Fall 1985 
1571 Internals - An inside look at the 
brand new I57t disk drive. Includes ROM 
listings -Winter 1985 

CP/M on the C-128 -A closeup view of 
the CP/M operating system as found on the 
C-128 -Winter 1985 

Artificial Intelligence -Intro to Al using 
the C-128 and C-64- Fall 1985 

Arnie Lee 

2201 Kalamazoo S,E. 
Grand Rapids. Ml. 49510 
(616) 241-5510. Telex 709-101 

C Compiler for C64 & C128 

Abacus Software announces the addition of 
two exclusive products - XPER and Super 
C Language Compiler for the Commodore 
home computer market. 



XPER is the first expert system for the C64 
and C128. Ordinary data base systems are 
good tor reproducing facts, but by using an 
expert system you can derive knowledge 
from a mountain of facts and make expert 
decisions- Using this unique knowledge- 
based package, you first build the informa- 
tion into your data base using XPER's 
simple loading procedures. Then, by using 
very efficient searching techniques XPER 
can easily guide you through the most 
complex decision making criteria. XPER is 
currently used by scientists, doctors, and 
professionals in their research and studies. 
The XPER System includes full reporting 
and data maintenance capabilities. 

The Super C Language Compiler is a com- 
plete development system. The powerful 
editor handles source files up to 4IK in 
length. The fast compiler produces 6510 
machine code. The linker accepts up to 
seven modules and the library supports 
standard as well as Commodore oriented 
functions, it conforms to the Kernighan & 
Ritchie standard 



3D Graphics System 

Victoria, BC — In co-operation with Inkwell 
Systems, Pioneer Software Inc. announced 
the release of "FLEXr'AIDED DESIGN, a 
3D graphics creation/manipulation/ 
animation system for the C-64 and C-128. 

The combination of "FLEXr^AIDED DE- 
SIGN and FLEXIDRAW used with Inkwell 
System's quality light-pen, provides the 
end-user with a complete graphics system, 
offering a price/performance ratio which 
has been completely unheard of until now. 

Imagine being able to take a group of ob- 
jects (we'll use a city as our example) and 
view it trom any angle (overhead, far away, 
nearer, from the inside looking out). How 
about taking your city and enlarging it, 
reducing it, rotating it on different axes or 
doing any of these manipulations on a 
single obiect within the city, one of the 
buildings, perhaps. How about taking a 
group of views and creating an animation? 
All of the above and more is possible using 
"FLEXr'AIDED DESIGN and your C-64 or 
C-128. "FLEXr'AIDED DESIGN'S operating 
system is destined to become a standard 
among Commodore users. Through the 
use of light-pen controlled, pull-down 
menus, windows, and graphics creation 
and manipulation, the user need never 
touch the keyboard once the computer is 
running. 



SUPERSHIPPER 64 

SuperShipper 64 is the complete invoicing 
and shipping system for your Commodore 
64- All you need is a C-64. monitor, I dual 
disk drive OR two single drives, and 1 or 
more printers. SuperShipper FEATURES: 

• Menu-Driven for ease of use. 

• Flexible - virtually any combination of 
single or dual disk drives (including MSD) 
will work! 

• i-ligh Capacity - 800 accounts per disk, 
500 invoices & 200 products per disk. 
Expandable to 2,200 products with an 
additional disk drive. 

• User-Friendly - disk and printer crashes 
are virtually nonexistent with SuperShip- 
per's thorough checking. 

• Easy Data Entry with machine latiguage 
driven, full cursor controlled editing win- 
dows for entry of account, invoice and 
product data. 

• Efficient Disk Use minimizes disk access 
time while taking full advantage of your 
disk drive's capacity. 

• Protect Your System with two levels of 
access - Executive and Operator. 

• Prints invoices of up to 31 lines on your 
choice of 8 1/2'* X 1 1" paper or two types 
of NEBS pre-printed invoice forms. 

• Prints C.O.D. tag with UPS Zone, UPS 
Shipper Number and user-selectable in- 
structions. 

• Prints mailing or shipping labels - fea- 
tures customized label formatting! 

• Print alphabetical listings of accounts and 
products. 

• Print lists of accounts and products sorted 
by data "keys'' that you can specify! 

• Prints a list of back orders. 

• Invoices have provisions for Credit, Addi- 
tional Charges, Tax and C.O.D. charges, 

• Set up your own formula for shipping & 
handling charges. 

• Four price categories for each individual 
product. 

• Fixed or percentage commission break- 
downs for each individual product. 

• Set "default" values to streamline entry of 
account, invoice and product data. 

Progressive Peripherals & Software 

2 186 South Holly. 

Suite -2 

Denver, CO 80222 303 759-5713 



Music Printer For Itie €64 

Sight & Sound Music Software, Inc., an- 
nounces that in response to tremendous 
demand from users of its Music processor (a 
software program for musical composi- 
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tion}, it has added a music printout feature 
to this program. The quality and accuracy 
of the printed nolalion ensure its recogni- 
tion as the finest music print program now 
available for the Commodore 64. 

The Music Processor now becomes the per- 
fect program for musical composition, both 
for those with limited musical knowledge 
or for the more serious musician. With the 
new program, the user can compose a 
piece, then edit or make changes to it, then 
record the same piece and print out the 
final composition. All of these functions 
can be performed using up to three voices, 
thereby taking full advantage of the Com- 
modore 64's unique three-voice SID chip. 

To enhance an original composition, it's 
possible to make use of 99 preset instru- 
mental sounds and special effects. Or for 
professional results with minimal effort, by 
using the joystick, the user can select from 
and change these 99 sounds and incorpo- 
rate them into the 16 prerecorded songs 
that are part of the program. 

Several other music software programs 
from Sight & Sound are compatible with 
the Music Processor. The Computer Song 
Albums make available dozens of contem- 
porary hit tunes that the user can recreate 
by changing sounds and special effects. 
The Incredible Musical Keyboard fits over 
the Commodore keys and enables the user 
to play the Commodore keyboard just like a 
synthesizer. But the ultimate in creative 
expression is achieved when combining 
the Music Processor with the Music Video 
Kit- Now it's possible to design, orchestrate 
and record computer-animated music vid- 
eos on the personal computer. 

The new, upgraded Music Processor with 
printout feature retails for $29,95. Owners 
of the original can upgrade to the complete 
new program for just $J5,00. 

To upgrade, simply send proof of owner- 
ship and a check or money order made out 
to Sight & Sound Music Software, Inc, Own- 
ership may be proven by either returning 
the original disk or cutting out the UPC and 
ISBN product numbers from the packaging. 
Please allow two to four weeks for delivery. 
For additional information, contact: 

Jane Billings 

Sight & Sound Music Software, Inc. 

3200 South 166th Street 

RO. Box 27, Department R2D2 

New Berlin, Wl S3151 414 784-5850 



SFD-1001 One Megabyte Disk Drive 



tH 



The SFD-lODl (Super Fast Drive) is now 
available. With double-sided double- 
density format, over One Megabyte can be 
stored on a single floppy disk. One hun- 
dred 1 54 1 -formatted disks can be reduced 
loonly sixteen SFD-lOOl-fornidtlcri disks. 
By using the intelligent IEEE bus and a bus 
expansion IEEE interface, the SFD-1001 
loads programs and data over twice as fast 
as the 1541 drive, and all lhisi[isideacase 
the size of the 154rsl 

Fully compatible with any Commodore 
computer that has an IEEE interface. Free 
ulilily disks for both the CBM 8032 and the 
C-64 are i[icluded! Transfer all your files 
and programs easily from any Commodore 
disk drive to your SFD-1001! 

The SFD-1001 is available now from Pro- 
gressive Peripherals & Software, Inc., your 
quality Commodore software and hard- 
ware source. Suggested retail price is only 
$399,95- Dealers inquiries are invited. . 
.call for more information or for the name 
of the dealer nearest vou. 

The 1541 loads 32Kbyles of datain approx- 
imately 1 minute, 20 seconds, the SFD- 
1001 loads 32K bytes of data in ou\y about 
35 seconds (bus expansion interface) or 
approximately 1 minute, 4 seconds (serial 
interface). 

Progressive Peripherals & Software, Jnc. 

2186 South Holly, 

Suite 200 

Denver, CO 80222 303 759-5713 



Provoice Speech Synthesizer 

Bethlehem, PA — Genesis Computer Corp. 
of Bethlehem. PA announces ProVoice, the 
latest version of its highly successful COM- 
voice speech synthesizer, for the Commo- 
dore 64 a[]d compatible computers. 
PfoVoice speaks an U[ilimited English vo- 
cabulary and contains the most sophisti- 
cated text to speech translation ever 
introduced for Ihe Conunudure computers. 
ProVoice has unique features such as 
screen echoing, which allows virtually any 
BASIC program to become a talking pro- 
gram, and variable translation modes for 
conversational, verbatim and character by 
character speech output. The screen echo- 
ing feature makes ProVoice an ideal aid for 
the visually impaired. 

ProVoice adds 13 new BASIC commands, 
including a HELP feature for quick refer- 



ence. All BASIC commands and lext-to- 
speech translation are handled by 
Pro-Voice's on-board ROM. ProVoice is a 
single plug-in device containing the ROM 
and ,speaker/amplifier. 




ProVoice will retail for $99.95 US, and a 
Talking Terminal package with modem, 
soon to be available, will have a targeted 
retail price of under $150 US. 

Genesis Computer Corp,, 

Ben Franklin Technology Center. Lehigh 

University, 

Bethlehem, PA 18015 (215)861-0850 



COMPUTEREYES Video 
Acquisition Systems 

Digital Vision, Inc. announced the appoint- 
ment of PHASE 4 DISTRIBUTORS INC. as 
Canadian Distributor for the COMPUTE- 
REYFS line of video acquisition systems for 
personal computers. Priced surprisingly 
low, COMPUTEREYES represents the first 
cost-effective means of capturing real- 
world images on the computers' high- 
resolution graphics display. A complete 
system including COMPUTEREYES and a 
high-quality video camera is also available 
at a very reasonable price. 




COMPUTEREYES is an innovative slow- 
scan device that connects between the 
computer and any standard video source 
(video tape recorder, video camera, vi- 
deodisk, etc.). Under simple software con- 
trol, a b/w image is acquired in less than 
six seconds, A unique multi-scan mode 
also provides realistic grey-scale images. 
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The accompanying images are printer 
screen dumps of images acquired by the 
system. 

Many of the applications of COMPUTE^ 
REYES are obvious. These include pattern 
recognition, security, quality control, spa- 
tial measurement, robotics and artificial 
intelligence, industrial controls, computer 
art, education, and entertainment. Other 
applications are bound to surface, once the 
product is in the hands of the creative 
members of the personal computer com- 
munity. 

Comprehensive software is provided with 
the system and includes: machine lan- 
guage image capture routines; a menu- 
driven executive that provides everything 
even first-time users need to capture im- 
ages; image save-to-disk capability; and 
image packing and unpacking routines that 
save disk space and speed loading and 
saving. To encourage application develop- 
ment and promote ease of use, the software 
is not copy -protected. Optional software is 
also available at a nominal charge to sup- 
port many of the popular graphics manipu- 
lation programs, such as Print Shop and 
the Koala Pad. 

The COMPUTERKYFS package includes 
interface module, complete easy-to-use 
software support on disk, owner's manual, 
and one year warranty. The system is cur- 
rently available for the Commodore 64 and 
the Apple II series, with an Atari 800/ 
800XL/65XE/130XE version available. 

Phase 4 Distributors Inc. 

7157FisherRoadSX. 

Calgary, ALTA T2H 0W5 403 252-091 1 



Omnitronics PrtntmasterZ + G 

The PR[NTMASTER/ + G is a full featured 
parallel printer interface compatible with 
all Commodore computers which use the 
Commodore type serial bus {C64, Pius4, 
C128, etc.). 

The PRINTM ASTER/ + G allows complete 
emulation of a Commodore 1525 or 801 
printer, including full graphics and graph- 
ics characters. Several advanced graphics 
features are also selectible, such as en- 
hanced graphics, double density, and re- 
verse graphics. Prints 6 or 8 bit wide 
Commodore graphics characters. Graphics 
printing speed is 6 to 12 times faster than 
many other printer interfaces. Prints a line 
of 80 graphics characters in 4 seconds. The 
PRINTMASTER/ + G is compatible with 



virtually all popular printers, including Ep- 
son, Gemini, Tally, Okidata, Banana, and 
NEC. The PRINTMASTER/ + G comes with 
a disk containing Hi-res printing program, 
graphics screens, banner program, and 
program examples. Cassette port or exter- 
nal power supply. 

Intellifeatures are the advanced capabilities 
of the PRINTMASTER/ -h G, many of which 
arc not available on anv other interface. 

If 

LOAD'S", 4,1 displays a complete printer 
interface status on your computer screen. 
L0AD"$'\4,1 displays disk the directory 
without erasing a BASIC program. Second- 
ary Address Lock, Margin and Page length 
settings, Single Page pausing, and more. 

An optional PRINTMASTER 1 6K Buffer Ex- 
pansion adds additional buffer memory for 
quickly freeing up your computer, plus a 
second expansion ROM which adds even 
more advanced capabilities to the 
PRINTMASTER/ + G. L0AD"RENUM",4,1 
renumbers a BASIC program, 
L0AD^'0LD",4,1 recovers a NEW^d BASIC 
program. Even faster graphics printer. 
Prints a line of 80 graphics characters in 2 
seconds. Dot graphics printing faster also. 
Design and upload your own character set. 
Many more features. 

The PRINTMASTER/ -hG and the PRINT- 
MASTER 16K BUFFER Expansion are 
available now for $1 19.95 and $89.95 re- 
spectively. Product reviews are desired. 
For a full brochure, or to order, contact; 

Omnitronix, Inc. 

P.O. Box 43 

Mercer Is,. WA 98040 206 236-2983 



EPSON HomeWriter 10 

Fully compatible with all software for the 
C64, the HomeWriter is capable of printing 
in Standard print. Expanded print, Reverse 
field print, Expanded Reverse field prints, 
not to mention graphics capabilities. 

One of the unique features of the EPSON 
HomeWriter 10 is SelecType print mode 
selection from the front panel, allowing 
easy access to a wide variety of print modes 
such as: 

• Near letter Quality text for word process- 
ing 

• Emphasized print 

• Double Strike print 

• Compressed print for spreadsheets, for 
example 



The PIC (Printer Interface Cartridge} which 
is quickly and simply installed in the back 
of the printer allows the same printer to 
work on a variety of computers such as the 
C64, Apple lie and Atari home computers. 

Epson America, Inc. 

27S0LomitaBlvd. 

Torrance, CA 90505 213 539-9140 



Remote Keyboard Conversion Kit 

If you have a Remote Keyboard Conversion 
Kit - Here's what you have: 




• A keyboard for your lap, lean back-relax 

• A keyboard to pass around when playing 
games 

• A keyboard not restricted in movement 
by 5 cables 

• A computer with cable plugs facing you 

• A computer you can change cabling and 
accessories easily 

• A color keyed to match original unit 

Friendly Systems, Inc. 
1845 Range Street 
Suite A 
North Boulder CO 80301 



MITEY MO 300 Baud fVlodem 

MiTEY MO is alive and gethng better all the 
time. The upgraded version of the MITEY 
MO, being marketed exclusively by Com- 
puter Devices International of San Lean- 
dro. CA, now includes the ''Smart 64 plus 
4'^ terminal software in its new and en- 
hanced package. 

There has been some confusion surround- 
ing the MITEY MO since it's originator USI, 
filed bankruptcy and liquidated in the fall 
of 1984. Computer Devices International, 
CDI, purchased the rights to the product 
line, and is continuing to honor the three 
year warranty. CDI is also providing techni- 
cal support, as well as a 48 hour turn 
around for any units that may need repair. 

Adding to the confusion is the fact that 
there were a few thousand of the original 
MITEY MO^s, without the "Smart 64 plus 4" 
terminal software, that were already in dis- 
tribution when USI filed bankruptcy. These 
units are being sold at below market prices 
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through some discount houses and distrib- 
utors. These cheaper units should be be 
confused with the MITEY MO's that are 
being advertised and reviewed by com- 
puter magazines and critics. 

Currently, the only authorized Canadian 
distributors of the new MITEY MO are T.C. 
Data in Montreal, and Phase 4 Distributors 
in Calgary, 

Anyone who has purchased on of the origi- 
nal MITEY MO's, without the new software, 
can upgrade it by contacting GDI directly. 
They are selling the "Smart 64 plus 4" 
terminal software for $19.95 US $, plus 
$3.00 US$ for shipping. 

Computer Devices International 

1345-A2Doolitlle Drive 

San LeandraCA 94577 415 633-^1899 



Mobile Data Terminal 

Motorola's Communications Sector an- 
nounces its newest member of a family of 
''wireless" data terminals; the KDT 480 
Mobile Data Terminal. 

Now il is possible to fake full advantage of 
computerized operations in a vehicle with 
the same computer access capability avail- 
able in an office. Plus, Motorola's KDT 480 
terminal can be used as a dedicated radio 
system, or it can be incorporated into an 
existing radio system. 

^ 

Field personnel can access computer net- 
works from remote locations, customer 
sites and even after routine business hours 
for maximized efficiency in a mobile envi- 
ronment. 

Storage of up to 3,000 characters in RAM 
are dynamically allocated to meet users' 
varying message mix and length. 




Featuring a text area of over 20 sq. in,, the 
highly visible CRT display can accommo- 
date up to 480 high resolution, easy to read, 
characters, formated info 12 lines of 40 
characters each for easy viewing. (Two ad- 
ditional lines provide 80 characters of oper- 
ational status information) 

The terminal display was designed for 
varying light conditions of the vehicular 
environment, to assure visibility. . .even in 
direct sunlight! 

An emergency indicator enables a driver to 
transmit an alert by pressing a function key 
or remotely mounted switch. 

The compact keyboard features full sized 
typewriter style keys, color coded by func- 
tion for easy operation. 

To meet varying requirements, the KDT 
480 terminal's modular design allows sepa- 
rate mounting of all components for truly 
customized installations. 

Unique Radio/Data 
Communications System 

Motorola's Communications Sector intro- 
duces an industry first, designed to extend 
data networks into the mobile environ- 
ment previously identified with two-way 
radio. The KDT 800 Portable Data Com- 
munications System operates in the 800 
MHz frequency range. Two-way digital ra- 
dio replaces traditional telephone lines to 
provide real-time communications be- 
tween people on the move and computers. 

A key element in the Motorola system is 
the battery operated KDT Computer Termi- 
nal which contains an 800 MHz data radio, 
internal antenna, a telephone modem and 
intelligence in excess of many personal 
computers. The environmentally rugged 
unit weighs less than 28 oz. and measures 
7.5 by 4 by 1.3 inches. 

The portable terminal features a 2-line 
LCD display of 27 characters per line. The 
59 position keyboard has full alphabetic 
capability in standard typewriter arrange- 
ment, programmable function keys, and a 
numeric calculator pad. 

Memory capacity is expandable to 160K 
bytes of ROM and SOK modules, one of 
which is externally pluggable. Application 
software has access to external memory 
and peripheral devices via either serial or 
parallel I/O interfaces. The KDT portable 
terminal can accommodate 1 megabyte of 
physical address space. 



A spectrally efficient system design can 
support more than one thousand portable 
terminal users on a single radio channel 
within a geographic area with average mes- 
sage traffic. The system operates at 4800 
bps, over standard 25 KHz or 12.5 KHz 
channels, in areas without radio coverage 
the portable terminal communicates with a 
central data base by connecting the built- 
in 300 bps telephone modem to any tele- 
phone. 

Motorola s radio data network design can 
be implemented in a campus/plant envi- 
ronment (local area network) and for city- 
wide usage {Metropolitan area network). 
Metropolitan area networks can be linked 
to provide nationwide coverage. Over two- 
way radio channels, the portable units 
send and receive messages through fixed 
transmitter/receiver stahons optimized for 
data traffic. The NCP-2000 network control 
processor provides message coordination 
across the entire terminal system. It tracks 
location of the KDT data terminal user, 
directs messages between the computer 
network and the terminal user, and con- 
trols operation of the radio equipment. In 
its full configuration, the network control 
processor contains seventeen 68000 micro- 
processors and has sixty-four ports pro- 
grammable for interface inward to host 
computers or outward to fixed transmitter/ 
receiver stations. The system also contains 
full remote and self-diagnostic capabilities. 

The electronic office can now be carried in 
a pocket in the form of a KDT Computer 
Terminal. To receive additional informa- 
tion, contact: 

Pat Schod 

Motorola, Inc. 

Communications Sector 

Public Relations Department 

!30l E. Algonquin Road 

SchaumburgJL 601% 312 576-6612 
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Idon'thaveenoughtimeorspacetolistallthegoodpoints[''~/Yo/andBrown,fli/)/v/rcsonHMiiCG/izcnE 

"This disk is fentastic!" - Tom Lynch, THE USERS FORT 



\^ 



Why all the enthusiasm? Because COPIAL is a composite of the best features of the most popular 

programming languages... the familiarity of BASIC commands with the structural pr(^ramming 

environment of Pascal and the turtle graphics of Logo." -- nark Brown, info 64 

"COMAL was just what 1 was looking for." -- Colln Thompson. RVrf 

Seeing is Believing. Take a look at what COPIAL has to offer: 

the complete COWAL 0. 14 System for Commodore 64^" includes the 

Tutorial Disk* (teaches you the fundamentals of COMAL), plus 

the Auto-Run DEWO Disk* (demonstrates 26 COMAL programs 

tndudlng games, graphics, sprites and sounds), 

all for just $7.00! 
You can add the reference book, COMAL from A to Z, 

for just $4.00 more. 
$7 or $11 - either way you're a winner! 



w 



Eveiybody who gets it, likes it! (I'll guarantee it)" - ten Lindsay. President COMAL Users Group 




For more infi^imation or to place an order call 
(608) 222-9432. Visa or Master Card accepted; checks or 
v^ ^ money orders must be in U.S. dollars, 

T--^^ 'jO'i All orders pre-paid only - no C.OJ). 

Send check or mono/ order in US Dollars to: 




"J- 



COMAL USERS GROUP U.S.A.. LIMITED 

604 1 Monona Drive. *1 10, Madison, Wl 53716 
phone: (608) 222-4432 



'Progmis wis conic on Idbks or 1 double aided dbh-eKkdbklndDdesCOnAL 
ComiDodOTc 64 b a tradcnariiatCoinniodorc Ckctronks 
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THE WORLD OF 
COMMODORE III 




IIBtHS 
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The 1984 Canadian 
World of Commodore show was 
the largest and best attended show 
in Commodore International's 
history. Larger than any other 
Commodore show in the World 
and this year's show will be 
even larger. 

World of Commodore III 

is designed specifically to appeal 
to the interests and needs of 
present and potential Commodore 

owners. 

Everything about your 

present or future Commodore 
computer - from hardware to 
software, Business to Personal to 
Educational - from over 90 
International Exhibitors. Price of 
admission includes free ^^ ^ 

seminars, clinics, ^.--^'''''^^C^'^ 

contests and free ^,^^^!^\^0 
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JOIN TPUG 

The largest Commodore Users Group 

Benefit from: 

Access to library of public domain software 
for C-64. VIC 20 and PET/CBM 

Magazine (10 per year) with advice from 

Jim Butterfield 

Brad Bjomdalil 

Liz Deal 



TPUG yearly memberships: 

Regular member (attends meetings) 
Student member (fuH-tlme, attends meetings) 
Associate (Canada) 
Associate (U,S.A.) 

Associate (Overseas — sea mall) 
Associate (Overseas — air mail) 



-$35.00 Cdn. 
-$25.00 Cdn. 
-S25.00Cdn. 
-$25 00U.S. 
-$30.00 Cdn. 
-$35.00 U.S. 
— S45.00 U.S. 



FOR FURTHER INFORMATION: 

Send $1.00 for an information catalogue 
(tell us which machine you use!) 

To: TPUG INC, 
DEPT. A, 

1912A AVENUE RD,, SUITE 1 
TORONTO, ONTARIO 
CANADA M5M 4A1 



A HIMKR MCMOLS PKI'SI'NT.VnON 

For more information call: 
_ <4l6>4:i9-4140 



COMAL INFO 
If you have COMAL— 

we have information. 

BOOKS: 

• COMAL From A To Z. 56.95 

• COMAL Workbook, $6.95 

• commodore 64 Graphics with COMAL, S14,95 

• COMAL Handbook, S18.95 

• Beginning COMAL, S22.95 

• Structured Programming with COMAL, S26.95 

• Foundations With COMAL, S19.95 

• Cartridge Graphics and Sound, S9.95 

• Captain COMAL Gets Organized, S19.95 

• Graphics Primer, S19.95 

• COMAL 2.0 Packages, S19.95 

• Library of Functions and Procedures, 519.95 

OTHER: 

• COMAL TODAY subscription, 6 Issues, 514.95 

• COMAL 0.14, Cheatsheet Keyboard Overlay, 53.95 

• COMAL starter Kit (3 disks, 1 book), 529.95 

• 19 Different COMAL Disks only S9405 

• Deluxe COMAL Cartridge Package, 5128.95 
[includes 2 books, 2 disks, and cartridge) 

ORDER NOW: 

Call TOLL-FREE 1-800-356-5524 exc 1307 VISA Of MasterCard 
ORDERS ONLY. Questions and information must call our 
info Line; 608-222-4432. All orders prepaid only-no COB. 
Add S2 per book snipping. Send a Sase for free mfo 
package or send check or money order in US Dollars co 

COMAL USERS GROUPp U.S.A., LIMITED 

5501 croveiand Ter, Madison, wi 53716 

TRADEMARKS commodore 64 Of Commodore Electronics Ltd., 
Captain comal of COMAL users Group. USA. Lto. 
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The Complete Commodore 
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Over 7,000 Delivered Since March '85 



Postage Paid Order Form at Center Page 



